18 lines
408 B
Plaintext
18 lines
408 B
Plaintext
;; Returns a reversed copy of the given list
|
|
; (define (reverse lst)
|
|
; (foldl cons nil lst))
|
|
#S(#="lambda"
|
|
#(
|
|
#i"foldl.rla"
|
|
#i"cons.rla"
|
|
)
|
|
#()
|
|
1
|
|
"\x00\x80\x03\xfb\; (set! f0 (car argv))
|
|
\x02\x80\x80\x00\; (set! f0 (cons f0 nil))
|
|
\x02\x80\x00\x80\; (set! f0 (cons nil f0))
|
|
\x02\x80\x02\x80"; (set! f0 (cons g2 f0))
|
|
"\x01\x80\x00\x00\xfe\xff"
|
|
)
|
|
; vim:set syntax= sw=2 expandtab:
|