/[guile]/guile/guile-core/lang/elisp/primitives/read.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/primitives/read.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26