;; 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: