1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Marcus Crestani
; R6RS Scheme reader with ##
; ## should evaluate to the last REPL result.
(define-sharp-macro #\#
(lambda (c port)
(read-char port)
((current-sharp-sharp) port)))
; Read a single form, allowing ## as a way to refer to last command
; output.
(define (read-form port)
(with-sharp-sharp (make-node (get-operator 'quote)
(list 'quote (focus-object)))
(lambda () (get-datum port))))
|
