/usr/share/scheme48-1.9/r6rs/reader-command.scm is in scheme48 1.9-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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))))
|