picolisp

commit 94861888b0ddbda069d4692e3cd4670f3c004090
parent 20446a696c8451a4a0a73a386e5b3a5927dab175
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 14 Jul 2012 17:02:22 +0200

Substitute tests for 64-bit version with checks for function definitions
Diffstat:
M
lib/debug.l
 | 
4
++--
M
test/src/flow.l
 | 
4
++--
M
test/src/sym.l
 | 
8
++++----

3 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/lib/debug.l b/lib/debug.l
@@ -1,8 +1,8 @@
-# 13apr12abu
+# 14jul12abu
 # (c) Software Lab. Alexander Burger
 
 # Prompt
-(when (== 64 64)
+(when symbols
    (de *Prompt
       (unless (== (symbols) 'pico) (symbols)) ) )
 
diff --git a/test/src/flow.l b/test/src/flow.l
@@ -1,4 +1,4 @@
-# 11jul11abu
+# 14jul12abu
 # (c) Software Lab. Alexander Burger
 
 ### quote ###
@@ -417,7 +417,7 @@
 
 
 ### co yield ###
-(when (== 64 64)
+(when co
    (test (1 2 3 (1 2 3))
       (make
          (do 4
diff --git a/test/src/sym.l b/test/src/sym.l
@@ -1,4 +1,4 @@
-# 20sep11abu
+# 14jul12abu
 # (c) Software Lab. Alexander Burger
 
 ### name ###
@@ -38,15 +38,15 @@
 
 
 ### symbols ###
-(when (== 64 64)
+(when symbols
    (test T (bool (pair pico)))
    (test 'pico (symbols 'myLib 'pico)) )
 
-(when (== 64 64)
+(when symbols
    (one Foo)
    (test 'myLib (symbols 'pico)) )
 
-(when (== 64 64)
+(when symbols
    (test 1 myLib~Foo) )
 
 ### intern ###