picolisp

commit 8ad3a9d211cd4204d946d7c009700b57e46e128b
parent 89263c9a9c2f5008bf14dfd03f6aa7311bb4aaac
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat,  8 Oct 2011 06:41:54 +0200

Revert, not needed
Diffstat:
M
src64/lib/asm.l
 | 
6
+-----

1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/src64/lib/asm.l b/src64/lib/asm.l
@@ -1,4 +1,4 @@
-# 07oct11abu
+# 23sep11abu
 # (c) Software Lab. Alexander Burger
 
 # *LittleEndian *AlignedCode *Registers optimize
@@ -423,7 +423,6 @@
       (cmpn (destination) "*Mode" (source) "*Mode" (source) "*Mode")
       (cnt (source) "*Mode")
       (dbg)
-      (dc2 (read))
       (dec (destination) "*Mode")
       (div (source) "*Mode")
       (drop)
@@ -531,9 +530,6 @@
 (asm bytes (Lst)
    (prinst ".byte" (glue ", " Lst)) )
 
-(asm dc2 (Lst)
-   (prinst ".short" (glue ", " Lst)) )
-
 (asm hx2 (Lst)
    (prinst ".short" (glue ", " (mapcar hex Lst))) )