picolisp

commit d2f199e6f3d38f9fe8324289600367df096f1f96
parent 457b039b10ca2c830ad49fbd36a39b04b3127553
Author: Commit-Bot <unknown>
Date:   Fri, 18 Jun 2010 16:54:50 +0000

Automatic commit from picoLisp.tgz, From: Fri, 18 Jun 2010 16:54:50 GMT
Diffstat:
M
doc/refA.html
 | 
8
++++----
M
doc/refT.html
 | 
2
+-
M
lib/misc.l
 | 
4
++--

3 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/doc/refA.html b/doc/refA.html
@@ -456,13 +456,13 @@ $ ./dbg
    ~(assert (>= 90 N 10))
    (bar N) )
 -> foo
-: (pp 'foo)
+: (pp 'foo)                      # Pretty-print 'foo'
 (de foo (N)
    (unless (>= 90 N 10)          # Assertion code exists
-      (quit "Assertion failed" '(>= 90 N 10)) )
+      (quit "'assert' failed" '(>= 90 N 10)) )
    (bar N) )
 -> foo
-: (foo 7)
+: (foo 7)                        # Try it
 (>= 90 N 10) -- Assertion failed
 ?
 
@@ -472,7 +472,7 @@ $ ./p
    ~(assert (>= 90 N 10))
    (bar N) )
 -> foo
-: (pp 'foo)
+: (pp 'foo)                      # Pretty-print 'foo'
 (de foo (N)
    (bar N) )                     # Assertion code does not exist
 -> foo
diff --git a/doc/refT.html b/doc/refT.html
@@ -241,7 +241,7 @@ href="refM.html#match">match</a></code> the <code>any</code> argument. See also
 -> NIL
 : (test 12 (+ 3 4))
 ((+ 3 4))
-12 -- fail
+12 -- 'test' failed
 ?
 </code></pre>
 
diff --git a/lib/misc.l b/lib/misc.l
@@ -481,12 +481,12 @@
    (when *Dbg
       (cons
          (list 'unless (car E)
-            (list 'quit "Assertion failed" (lit (car E))) ) ) ) )
+            (list 'quit "'assert' failed" (lit (car E))) ) ) ) )
 
 (de test (Pat . Prg)
    (bind (fish pat? Pat)
       (unless (match Pat (run Prg 1))
          (msg Prg)
-         (quit 'fail Pat) ) ) )
+         (quit "'test' failed" Pat) ) ) )
 
 # vi:et:ts=3:sw=3