picolisp

commit 53096943d0360cf3eff507448d502ab87982acc6
parent 22d5e440612cf0043b9fab3b89d3c8bebec8da92
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 25 May 2011 07:45:03 +0200

Some more global vs. local invocation issues
Diffstat:
M
misc/crc.l
 | 
6
+++---
M
misc/fibo.l
 | 
4
++--
M
misc/stress.l
 | 
6
+++---
M
misc/trip.l
 | 
4
++--

4 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/misc/crc.l b/misc/crc.l
@@ -1,7 +1,7 @@
-# 21may10abu
+# 25may11abu
 # (c) Software Lab. Alexander Burger
 
-(if (== 64 64) (load "lib/native.l") (from "/**/"))
+(if (== 64 64) (load "@lib/native.l") (from "/**/"))
 
 (gcc "util" NIL
    (crc (Len Lst) "crc" 'I Len (cons NIL (cons Len) Lst)) )
@@ -23,7 +23,7 @@ int crc(int len, char *p) {
 /**/
 
 
-(ifn (== 64 64) (load "lib/gcc.l") (from "/**/"))
+(ifn (== 64 64) (load "@lib/gcc.l") (from "/**/"))
 
 (gcc "crc" NIL 'crc)
 
diff --git a/misc/fibo.l b/misc/fibo.l
@@ -1,4 +1,4 @@
-# 08mar10abu
+# 25may11abu
 # (c) Software Lab. Alexander Burger
 
 # Standard version
@@ -35,7 +35,7 @@
 # Coded in 'C'
 `(== 64 64)  # Only in the 64-bit version
 
-(load "lib/native.l")
+(load "@lib/native.l")
 
 (gcc "fibo" NIL
    (cFibo (N) "Fibo" 'I N) )
diff --git a/misc/stress.l b/misc/stress.l
@@ -1,8 +1,8 @@
-# 30aug10abu
+# 25may11abu
 # (c) Software Lab. Alexander Burger
-# Use: nice ./p misc/stress.l -main -go -bye; rm db/test jnl db/test2
+# Use: nice pil misc/stress.l -main -go -bye; rm db/test jnl db/test2
 
-(load "lib/too.l")
+(load "@lib/too.l")
 
 (class +A +Entity)
 (rel key (+Key +Number))               # Key  1 .. 999
diff --git a/misc/trip.l b/misc/trip.l
@@ -1,7 +1,7 @@
-# 11mar10abu
+# 25may11abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/simul.l")
+(load "@lib/simul.l")
 
 # Set up distance properties
 # See "misc/travel.l" and "doc/travel"