summaryrefslogtreecommitdiff
path: root/lang/elisp/primitives/read.scm
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)))))