From 5a803b24111fe5a18ad15bc190a12a80048c9712 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 7 Mar 2012 06:58:39 +0900 Subject: [PATCH] Converting opcode names to symbols in ast->sexp. --- lib/chibi/ast.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/ast.scm b/lib/chibi/ast.scm index e71cbfe7..99f5975f 100644 --- a/lib/chibi/ast.scm +++ b/lib/chibi/ast.scm @@ -106,7 +106,7 @@ (let ((v (lit-value x))) (if (or (pair? v) (null? v) (symbol? v)) `',v v))) ((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))))) ;;> @subsubsection{Types}