From 5af875717bbbb3892fbe3b92783804a3b62841a6 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Tue, 26 Nov 2019 19:24:43 +0100 Subject: Fix bugs in lispparser.lisp --- tests/lispparser.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/tests/lispparser.lisp b/tests/lispparser.lisp index 61f4e47..b6dfb67 100644 --- a/tests/lispparser.lisp +++ b/tests/lispparser.lisp @@ -101,7 +101,7 @@ (= ch "x") (let ((h1 (parse-hex-digit (substr 1 1 str))) (h2 (parse-hex-digit (substr 2 1 str)))) - (list (chr (16 * h1 + h2)) (substr 3 -1 str))) + (list (chr (+ (* 16 h1) h2)) (substr 3 -1 str))) (error "Invalid string escape character " ch)))) ; string[input] string[string to prepend to result] -> (string[parsed till bare "] string[rest]) @@ -299,9 +299,11 @@ (print-program (lambdarec rec (items) (if (null? items) "" - (concat-list - (map (lambda (i) (concat "\n" (pretty-ast i))) - (cdr items))))))) + (concat + (pretty-ast (car items)) + (concat-list + (map (lambda (i) (concat "\n" (pretty-ast i))) + (cdr items)))))))) (cond (= (car ast) 'program) (print-program (cdr ast)) -- cgit v1.2.3-54-g00ecf