Permalink
Browse files

Minor fix

  • Loading branch information...
1 parent 0e51c50 commit 7fe603cb3f7d3c81b1d15dc0ec0dcf1edb5b3e4c nineties committed Feb 19, 2013
Showing with 7 additions and 7 deletions.
  1. +2 −2 rowl1/rowl1-compile.rlc
  2. +5 −5 rowl1/rowl1-list.rlc
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2010 nineties
;
-; $Id: rowl1-compile.rlc 2013-02-19 12:03:49 nineties $
+; $Id: rowl1-compile.rlc 2013-02-19 21:45:23 nineties $
;
(import "rlvm-compile")
@@ -1498,7 +1498,7 @@
; {
; iter: ary.each
; v: nil
-; while ((v = iter()) != undefined) {
+; while ((v = iter()) != undef) {
; i = v
; body
; }
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2010 nineties
;
-; $Id: rowl1-list.rlc 2013-02-18 19:15:21 nineties $
+; $Id: rowl1-list.rlc 2013-02-19 21:49:20 nineties $
;
(import "rlvm-compile")
@@ -63,11 +63,11 @@
(return (cons a b))
))
-(fun ls_front (a) (
+(fun ls_car (a) (
(if (! a) (index_out_of_range a 0))
(return (car a))
))
-(fun ls_tail (a) (
+(fun ls_cdr (a) (
(if (! a) (index_out_of_range a 1))
(return (cdr a))
))
@@ -200,8 +200,8 @@
(add_function1 std (to_sym "length") listT ls_length 0)
(add_function1 std (to_sym "size") listT ls_length 0)
(add_function2 std (to_sym "cons") DontCare listT ls_cons 0)
- (add_function1 std (to_sym "front") listT ls_front 0)
- (add_function1 std (to_sym "tail") listT ls_tail 0)
+ (add_function1 std (to_sym "car") listT ls_car 0)
+ (add_function1 std (to_sym "cdr") listT ls_cdr 0)
(add_function2 std (to_sym "at") listT intT ls_at 0)
(add_function3 std (to_sym "store") listT intT DontCare ls_store 0)
(add_function1 std (to_sym "reverse") listT ls_reverse 0)

0 comments on commit 7fe603c

Please sign in to comment.