Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Converting opcode names to symbols in ast->sexp.

Browse source
This commit is contained in:
Alex Shinn 2012-03-07 06:58:39 +09:00
parent e0151c2a51
commit 5a803b2411
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/ast.scm
View file

@ -106,7 +106,7 @@
(let ((v (lit-value x))) (let ((v (lit-value x)))
(if (or (pair? v) (null? v) (symbol? v)) `',v v))) (if (or (pair? v) (null? v) (symbol? v)) `',v v)))
((pair? x) (cons (a2s (car x)) (a2s (cdr x)))) ((pair? x) (cons (a2s (car x)) (a2s (cdr x))))
((opcode? x) (or (opcode-name x) x)) ((opcode? x) (cond ((opcode-name x) => string->symbol) (else x)))
(else x))))) (else x)))))
;;> @subsubsection{Types} ;;> @subsubsection{Types}