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

Diff of /guile/guile-core/lang/elisp/base.scm

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

revision 1.3 by ossau, Wed Jan 30 00:03:39 2002 UTC revision 1.4 by ossau, Fri Feb 8 11:50:51 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp base)  (define-module (lang elisp base)
2    
3    ;; Be pure.  Nothing in this module requires most of the standard    ;; Be pure.  Nothing in this module requires symbols that map to the
4    ;; Guile builtins, and it creates a problem if this module has    ;; standard Guile builtins, and it creates a problem if this module
5    ;; access to them, as @bind can dynamically change their values.    ;; has access to them, as @bind can dynamically change their values.
6      ;; Transformer output always uses the values of builtin procedures
7      ;; and macros directly.
8    #:pure    #:pure
9    
   ;; But we do need a few builtins - import them here.  
   #:use-module ((guile) #:select (@fop @bind nil-cond))  
   
10    ;; {Elisp Primitives}    ;; {Elisp Primitives}
11    ;;    ;;
12    ;; In other words, Scheme definitions of elisp primitives.  This    ;; In other words, Scheme definitions of elisp primitives.  This
# Line 34  Line 33 
33    ;; Now switch into Emacs Lisp syntax.    ;; Now switch into Emacs Lisp syntax.
34    #:use-syntax (lang elisp transform))    #:use-syntax (lang elisp transform))
35    
 ;(use-modules (lang elisp transform))  
 ;(read-set! keywords 'prefix)  
 ;(set-module-transformer! (current-module) transformer)  
   
36  ;;; Everything below here is written in Elisp.  ;;; Everything below here is written in Elisp.
37    
38  (defun load-emacs ()  (defun load-emacs ()
39      (scheme (read-set! keywords 'prefix))
40    (message "Calling loadup.el to clothe the bare Emacs...")    (message "Calling loadup.el to clothe the bare Emacs...")
41    (load "loadup.el")    (load "loadup.el")
42    (message "Guile Emacs now fully clothed"))    (message "Guile Emacs now fully clothed"))

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

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