blob: aeacd2c1506af88399e4952b338e12bdf3cb82f6 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(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)))))
|