projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Fix some scheme compat issues
[fw/altos]
/
src
/
lisp
/
ao_lisp_const.lisp
diff --git
a/src/lisp/ao_lisp_const.lisp
b/src/lisp/ao_lisp_const.lisp
index 191ef00581ff2b602fa3a295cb1455fb2601a258..861a4fc80eed91314a76453f63528fef4d21340e 100644
(file)
--- a/
src/lisp/ao_lisp_const.lisp
+++ b/
src/lisp/ao_lisp_const.lisp
@@
-60,10
+60,17
@@
(defun caddr (l) (car (cdr (cdr l))))
(defun caddr (l) (car (cdr (cdr l))))
-(defun nth (list n)
- (cond ((= n 0) (car list))
- ((nth (cdr list) (1- n)))
- )
+(define list-tail (lambda (x k)
+ (if (zero? k)
+ x
+ (list-tail (cdr x (- k 1)))
+ )
+ )
+ )
+
+(define list-ref (lambda (x k)
+ (car (list-tail x k))
+ )
)
; simple math operators
)
; simple math operators
@@
-264,6
+271,7
@@
(let ((x 1)) x)
(let ((x 1)) x)
+(define let* let)
; boolean operators
(define or (lexpr (l)
; boolean operators
(define or (lexpr (l)