Author: chromatic
Date: Fri Apr 21 13:20:00 2006
New Revision: 12393
Modified:
trunk/languages/pheme/lib/pge2past.tg
trunk/languages/pheme/t/lambda.t
Log:
s/defun/define/ to match Scheme, not Lisp.
Modified: trunk/languages/pheme/lib/pge2past.tg
==============================================================================
--- trunk/languages/pheme/lib/pge2past.tg (original)
+++ trunk/languages/pheme/lib/pge2past.tg Fri Apr 21 13:20:00 2006
@@ -98,7 +98,7 @@
.local string op_name
op_name = op.'op'()
- if op_name == 'defun' goto return_sub
+ if op_name == 'define' goto return_sub
.return( node )
return_sub:
Modified: trunk/languages/pheme/t/lambda.t
==============================================================================
--- trunk/languages/pheme/t/lambda.t (original)
+++ trunk/languages/pheme/t/lambda.t Fri Apr 21 13:20:00 2006
@@ -2,7 +2,7 @@
(plan 3)
-(defun carcar
+(define carcar
(lambda (l)
(car (cdr l))))
