Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!bloom-beacon!oberon!cit-vax!ucla-cs!zen!ucbvax!GRASP.CIS.UPENN.EDU!trevor
From: trevor@GRASP.CIS.UPENN.EDU (Trevor Darrell)
Newsgroups: comp.windows.news
Subject: saveing procedures from NeWS
Message-ID: <8710151513.AA05258@grasp.cis.upenn.edu>
Date: Fri, 16-Oct-87 01:01:49 EDT
Article-I.D.: grasp.8710151513.AA05258
Posted: Fri Oct 16 01:01:49 1987
Date-Received: Sat, 17-Oct-87 17:38:30 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 35


Has anyone managed to create a procedure that can write an arbitrary 
procedure to a file? Or even a simple (ie- without complex objects)
procedure? I can't seem to get rid of the single quotes NeWS puts
around all operators, which prevent NeWS from reading in the output
it produces. I'm sure I could convert all operators to strings and
manually chop off any quotes, but that seems like an ugly hack. Am
I missing something?

faulkner:~% psh
executive
Welcome to NeWS Version 1.0
/foo { 1 1 add } def
/foo load ==
{1 1 'add'}
/foo load 2 get ( %\n) exch 1 array astore printf
 'add'
/dumpfile (foo) (w) file def
dumpfile /foo load 2 get ( 2 2 %\n) exch 1 array astore fprintf
dumpfile closefile
(foo) run
**ERROR** The error & current stack are:
        /newerror:      true
        /errorname:     /undefined
        /command:       'add'
2 2 
faulkner:~% cat foo
 2 2 'add'
faulkner:~% 




--trevor
trevor@grasp.cis.upenn.edu