guile18/lang/elisp/primitives/read.scm

   1 (define-module (lang elisp primitives read)
   2   #:use-module (lang elisp internals fset))
   3
   4 ;;; MEGA HACK!!!!
   5
   6 (fset 'read (lambda (str)
   7               (cond ((string=? str "?\\M-\\^@")
   8                      -134217728)
   9                     (else
  10                      (with-input-from-string str read)))))