Show
Ignore:
Timestamp:
03/03/08 03:20:00 (6 years ago)
Author:
lieutar
Message:

lang/elisp/escm/trunk: add some changes.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/escm/trunk/escm.el

    r6617 r7383  
     1(require 'escm-util) 
    12(require 'escm-vm) 
    23 
    34(defvar escm-default-vm nil) 
    4 (defsubst escm-default-vm () (or escm-default-vm 
    5                                  (progn (setq escm-default-vm (escm-vm::new)) 
    6                                         escm-default-vm))) 
     5(defsubst escm-default-vm () 
     6  (or escm-default-vm 
     7      (progn (setq escm-default-vm (escm-vm::new)) 
     8             escm-default-vm))) 
    79 
    810(defsubst escm-eval  (exp) 
     
    1113(defsubst escm-apply (proc args) 
    1214 (escm-vm::apply (escm-default-vm) proc args)) 
     15 
     16(defmacro escm-define (&rest body) (escm-eval `(define ,@body))) 
     17(unless (fboundp 'define) (defalias 'define 'escm-define)) 
     18 
     19(defun escm-locate-library (name) 
     20  (or (locate-library name) 
     21      (locate-library (concat (escm-util::basename name) ".escm")))) 
     22 
     23(defun escm-load    (file) 
     24  (when (symbolp file) (setq file (symbol-name file))) 
     25  ()) 
     26 
     27(defadvice require (around escm-load first (sym) activate) 
     28  "" 
     29  (condition-case *err* ad-do-it 
     30    (file-error (escm-load sym)))) 
     31 
     32(defadvice load (around escm-load first (file) activate) 
     33  "" 
     34  (condition-case *err* ad-do-it 
     35    (file-error (escm-load file)))) 
     36 
     37(provide 'escm)