36 lines
668 B
Plaintext
36 lines
668 B
Plaintext
|
|
|
|
; Going to set some aliases just for this, the scheme version
|
|
; commenting out the first let with it's final ) should make this
|
|
; legal kraken
|
|
(import (chicken process-context))
|
|
(import (chicken port))
|
|
(load "partial_eval.csc")
|
|
(import (partial_eval))
|
|
(let* (
|
|
(array list)
|
|
(concat append)
|
|
(len length)
|
|
(idx list-ref)
|
|
|
|
;(array vector)
|
|
;(concat vector-append) ; only in extension vector library!
|
|
;(len vector-length)
|
|
;(idx vector-ref)
|
|
|
|
(= equal?)
|
|
)
|
|
|
|
(print (array 1 2 3))
|
|
(print (command-line-arguments))
|
|
|
|
(print (call-with-input-string "'(1 2)" (lambda (p) (read p))))
|
|
|
|
(print partial_eval)
|
|
|
|
|
|
)
|
|
|
|
|
|
|