picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 5c57ff2ecacc9b41c12d5ef9d4cf3f5f8801873f
parent fbe1150d2a47f4843bf242aea22b0520f5513e42
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 17 Apr 2011 19:27:02 +0200

Minor formatting corrections
Diffstat:
Msrc64/lib/asm.l | 10+++++-----
1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src64/lib/asm.l b/src64/lib/asm.l @@ -1,4 +1,4 @@ -# 15apr11abu +# 17apr11abu # (c) Software Lab. Alexander Burger # *LittleEndian *Registers optimize @@ -518,10 +518,10 @@ (prinst ".short" (glue ", " (mapcar hex Lst))) ) (asm ascii (Str) - (prinst ".ascii " (pack "\"" Str "\"")) ) + (prinst ".ascii" (pack "\"" Str "\"")) ) (asm asciz (Str) - (prinst ".asciz " (pack "\"" Str "\"")) ) + (prinst ".asciz" (pack "\"" Str "\"")) ) (asm initFun (Lbl Name Val) (initSym Lbl Name Val (boxfun Val)) ) @@ -551,13 +551,13 @@ (chain L) ) ) ) ) (if (nth Name 9) (prinst ".quad" ".+20") - (prinl " .byte " (glue ", " Name)) + (prinst ".byte" (glue ", " Name)) (off Name) ) (when Lbl (label Lbl) ) (prinst ".quad" Val) (while Name - (prinl " .byte " (glue ", " (cut 8 'Name))) ) ) + (prinst ".byte" (glue ", " (cut 8 'Name))) ) ) (de warn (Msg) (out 2