mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
10 lines
251 B
Scheme
10 lines
251 B
Scheme
(define-module (lang elisp primitives read)
|
|
#:use-module (lang elisp internals fset))
|
|
|
|
;;; MEGA HACK!!!!
|
|
|
|
(fset 'read (lambda (str)
|
|
(cond ((string=? str "?\\M-\\^@")
|
|
-134217728)
|
|
(else
|
|
(with-input-from-string str read)))))
|