/[guile]/guile/guile-core/lang/elisp/internals/fset.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/fset.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC revision 1.3 by ossau, Mon Feb 4 21:13:46 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp internals fset)  (define-module (lang elisp internals fset)
   #:use-module (lang elisp internals signal)  
2    #:use-module (lang elisp internals evaluation)    #:use-module (lang elisp internals evaluation)
3      #:use-module (lang elisp internals lambda)
4      #:use-module (lang elisp internals signal)
5    #:export (fset    #:export (fset
6              fref              fref
7              fref/error-if-void              fref/error-if-void
# Line 105  Line 106 
106                  function)                  function)
107                 ((and (pair? function)                 ((and (pair? function)
108                       (eq? (car function) 'lambda))                       (eq? (car function) 'lambda))
109                  (eval function the-elisp-module))                  (eval (transform-lambda/interactive function '<elisp-lambda>)
110                          the-root-module))
111                 (else                 (else
112                  (signal 'invalid-function (list function))))                  (signal 'invalid-function (list function))))
113           args))           args))

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

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