Author: fperrad
Date: Fri Nov 7 10:28:12 2008
New Revision: 32433
Modified:
trunk/languages/lisp/include/macros/standard.pir
trunk/languages/lisp/include/macros/types.pir
trunk/languages/lisp/internals.pir
Log:
[lisp]
- fix, new syntax .const 'Name'
(see r32419)
Modified: trunk/languages/lisp/include/macros/standard.pir
==============================================================================
--- trunk/languages/lisp/include/macros/standard.pir (original)
+++ trunk/languages/lisp/include/macros/standard.pir Fri Nov 7 10:28:12 2008
@@ -54,7 +54,7 @@
_specialformp = new "LispSpecialForm"
# VALID_IN_PARROT_0_2_0 _specialformp._set_body(.L)
- .const .Sub _special_func = .L
+ .const 'Sub' _special_func = .L
_specialformp._set_body(_special_func)
_namep = new "LispString"
Modified: trunk/languages/lisp/include/macros/types.pir
==============================================================================
--- trunk/languages/lisp/include/macros/types.pir (original)
+++ trunk/languages/lisp/include/macros/types.pir Fri Nov 7 10:28:12 2008
@@ -121,7 +121,7 @@
# VALID_IN_PARROT_0_2_0 setattribute .F, "LispFunction\0body", .L
.local pmc _func
- .const .Sub _func = .L
+ .const 'Sub' _func = .L
setattribute .F, "body", _func
.endm
Modified: trunk/languages/lisp/internals.pir
==============================================================================
--- trunk/languages/lisp/internals.pir (original)
+++ trunk/languages/lisp/internals.pir Fri Nov 7 10:28:12 2008
@@ -362,7 +362,7 @@
.local pmc body
.THIRD(body, form)
- .const .Sub sub_that_calls_eval = 'sub_that_calls_eval'
+ .const 'Sub' sub_that_calls_eval = 'sub_that_calls_eval'
.local pmc closure
closure = newclosure sub_that_calls_eval # Capture the scope the
closure
