Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / read.scm

diff --git a/guile18/lang/elisp/primitives/read.scm b/guile18/lang/elisp/primitives/read.scm
new file mode 100644 (file)
index 0000000..aeacd2c
--- /dev/null
+++ b/guile18/lang/elisp/primitives/read.scm
@@ -0,0 +1,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)))))