picolisp

commit d923ca63f2f8e55d8e7791038410a586daeaa0de
parent 1136904575380001a977ad4d2868dd785710bb1f
Author: Commit-Bot <unknown>
Date:   Wed, 17 Nov 2010 18:08:08 +0000

Automatic commit from picoLisp.tgz, From: Wed, 17 Nov 2010 18:08:08 GMT
Diffstat:
M
ersatz/lib.l
 | 
3
+--
M
src64/mkAsm
 | 
6
+++---
M
src64/mkAsm.l
 | 
3
+--

3 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -215,7 +215,7 @@
 (de *PP
    T NIL if ifn when unless while until do case state for
    with catch finally ! setq default push job use let let?
-   prog1 later recur redef =: in out ctl tab new )
+   prog1 recur redef =: in out tab new )
 (de *PP1 let let? for redef)
 (de *PP2 setq default)
 
@@ -691,7 +691,6 @@
 (de tmp @
    (unless *Tmp
       (push '*Bye '(call 'rm "-r" *Tmp))
-      (push '*Fork '(off *Tmp) '(del '(call 'rm "-r" *Tmp) '*Bye))
       (call 'mkdir "-p" (setq *Tmp (pack "tmp/" *Pid "/"))) )
    (pass pack *Tmp) )
 
diff --git a/src64/mkAsm b/src64/mkAsm
@@ -1,11 +1,11 @@
 #!/bin/sh
-# 12nov10abu
+# 17nov10abu
 
 if test -x ../bin/picolisp
 then
-   ../bin/picolisp ../lib.l mkAsm.l "$@"
+   ../bin/picolisp ../lib.l @lib/misc.l mkAsm.l "$@"
 else
-   ../ersatz/picolisp ../lib.l mkAsm.l "$@"
+   ../ersatz/picolisp mkAsm.l "$@"
 fi
 
 # vi:et:ts=3:sw=3
diff --git a/src64/mkAsm.l b/src64/mkAsm.l
@@ -1,7 +1,6 @@
-# 12nov10abu
+# 17nov10abu
 # (c) Software Lab. Alexander Burger
 
-(load "@lib/misc.l")
 (setq *Architecture (opt)  *System (opt)  *TargetOS (opt)  *Module (opt))
 
 (load "lib/asm.l" (pack "arch/" *Architecture ".l"))