diff --git a/cgen.scm b/cgen.scm index 6b0e0f45..1070a741 100644 --- a/cgen.scm +++ b/cgen.scm @@ -949,8 +949,7 @@ ;; Emit symbol definitions (for-each (lambda (sym) - (emit* - "defsymbol(" (mangle sym) ", " (symbol->string sym) ");")) + (emit* "defsymbol(" (mangle sym) ");")) *symbols*) ;; Emit lambdas: @@ -990,7 +989,8 @@ (for-each (lambda (sym) (emit* - " quote_" (mangle sym) " = find_or_add_symbol(\"" (symbol->string sym) "\");")) + " quote_" (mangle sym) " = find_or_add_symbol(\"" + (symbol->string sym) "\");")) *symbols*) ;; Initialize global table diff --git a/cyclone.h b/cyclone.h index 18273276..f9080198 100644 --- a/cyclone.h +++ b/cyclone.h @@ -144,7 +144,7 @@ typedef symbol_type *symbol; #define symbol_pname(x) (((symbol_type *) x)->pname) #define symbol_plist(x) (((symbol_type *) x)->plist) -#define defsymbol(name,pname) \ +#define defsymbol(name) \ static object quote_##name = nil; /* Define numeric types */