Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC | revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
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))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |