Changeset 10036 for lang/elisp

Timestamp:

04/21/08 08:52:08 (8 months ago)

Author:

lieutar

Message:

lang/elisp/escm: I wrote "escm-elize-object" procedure. The procedure makes escm (mock scheme) to byte-compiled emacs-lisp.

Location:

lang/elisp/escm/trunk/src/elisp

Files:

• DEVELOPERSTOOLS.el (modified) (6 diffs)
• escm-arity.el (modified) (1 diff)
• escm-base.el (modified) (2 diffs)
• escm-compile.el (modified) (9 diffs)
• escm-context.el (modified) (3 diffs)
• escm-elizer.el (added)
• escm-env.el (modified) (3 diffs)
• escm-iblock-content.el (modified) (4 diffs)
• escm-iblock.el (modified) (2 diffs)
• escm-icode.el (modified) (1 diff)
• escm-port.el (modified) (4 diffs)
• escm-proc.el (modified) (2 diffs)
• escm-util.el (modified) (5 diffs)
• escm-vm.el (modified) (4 diffs)

lang/elisp/escm/trunk/src/elisp/DEVELOPERSTOOLS.el

@@ -24 +24 @@
 ;; sample codes
 (when nil
-
   (escm-vm::eval (escm-vm::new)  '(+ 0 1 (* 2 3) 4))
   (escm-vm::eval (escm-vm::new)  '(if nil 1 2))
@@ -31 +30 @@
    '((lambda ()
        (define (fact n) (if (= n 1) n (* n (fact (- n 1)))))
-       (fact 3))))
+       (fact 10))))
 
   (progn 
@@ -39 +38 @@
         (+ (fib (- n 2))
            (fib (- n 1)))))
-    (fib 7))
-
-  (escm-eval '(fib 7))
+    (escm-eval '(fib 10)))
 
   (escm-vm::eval
@@ -48 +45 @@
        (message (call/cc (lambda (cont)
                            (cont "abc")))))))
+
+(escm-vm::eval
+ (escm-vm::new)
+ '((lambda ()
+     (define (fib n)
+       (define (iter a b n)
+         (if (= n 0) (+ a b) (iter b (+ a b) (- n 1))))
+       (iter 0 1 n))
+     (fib 10))))
+
+(insert (format "%S"
+                (escm-vm::byte-compile-sexp-list
+                 (escm-vm::new)
+                 '((define (fib n)
+                     (define (iter a b n)
+                       (if (= n 0) (+ a b) (iter b (+ a b) (- n 1))))
+                     (iter 0 1 n))
+                   (fib 10)))
+))
+
+(funcall
+#[(vm) "\306\307\310\307\311\312\306\211\211\211\211&\307\313\306\314\315!\316       \317\320\306BB\"\210    )\320\306%\307\321\322\323\307\303\324\325\326\327\330\331\312\307\310\307\311\332\330\306B\306\211\211\211&\307\333\306\314\315!\316 \330\320\334\335\306BBBB\"\210  )\314\336!\316 \334\306\211BB\"\210    )\307\311\332\330\306B\306\211\211\211&\334\330\306BB&\307\321\322\337\307\303\324\325\326\327\330\331\312\307\310\307\311\340\341\342\330\306BBB\306\211\211\211&\307\333\306\314\315!\316 \341\320\342\335\330\343\306BBBBBB\"\210        )\314\336!\307\311\340\341\342\330\306BBB\306\211\211\211&\330\342\341\306BBB&\307\321\322\344\307\303\330\345\327\324\325\331\312\332\346\306\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\326\370&
+\371$\321\322\372\307\303\330\331\312\373\320\374\375&\335$\321\322\376\307\303\330\345\327\324\325\331\312\332\346\306\347\342\350\351\377\201@\352\340\341\320\201A\354\355\356\357\360\361\362\363\364\365\366\367\201B\326\370&%\371$\321\322\201C\307\303\201B\330\345\327\324\331\312\373\377\201@\332\346\306\347\352\350\351\340\201D\354\355\356\357\360\361\362\363\364\365\366\367\325\326\370&#\371$\321\322\201E\307\303\201B\327\324\325\370\331\312\373\377\201@\332\334\350\354\356\201F\360\201G\362\201H\364\365\374\367&\335$\321\322\201I\307\303\330\331\312\332\374\375&\335$\321\322\201J\307\303\330\345\327\324\325\331\312\332\346\306\347\342\350\351\341\352\201A\354\356\201F\360\201G\362\201H\364\365\374\367\326\370&\371$\321\322\201K\307\303\331\312\201L\201M\201N\201O\201P&\340$&\306\307\201Q\201R\201S#&\350\201T\373\332\334\201U\352\340\346\306\347\320\351\335\354\356\201F\360\201G\362\201H\364\365\374\367\345\370&$\371$\321\322\201K\307\303\331\312\201L\201M\201N\201O\201P&\340$\"\306\307\201Q\201V\201W#&\350\201T\373\332\317\201U\352\340\346\306\347\320\201X\377\201@\335\354\356\201F\360\201G\362\201H\364\365\374\367\345\201B\370&'\343$\321\322\201K\307\303\331\312\201L\201M\201N\201O\201P&\340$\"\306\307\201Q\201Y\201Z#&\211)\211\201[!@) 
+\211
+\352I\210*
+
+8\355 \2108\206\332\356!
+8\357\3608!\"\210\361\3628!\"\210\363\3648\"\"\210\365!\210\366\367\",\207" [escm-util::gensym::18441/32920/95488/8 sym top vm val obj nil vector escm-proc escm-arity 0 escm-fixed-env make-symbol "*dic*" setplist fib 4 make-byte-code (vm *env*) "\306\307\"\210\310C\311\312
+        #*\313!\240\210*\306\314\"\210\315\313!@)D\311\316
+        #\210*\306\317\"\210\315\313!\240\210*\306\320\"\210\314
+\321!
+$
+\307V\203c\322$B$ 
+S\211\202Q\323$\"\210+\306\324\"\210\325 
+%\326%\327!B\"\210*\306\330\"\210\315C\311\331
+        #*
+&&\206\233\332! 
+&\333\334&!\"\210\335\336&!\"\210\337\340&\"\"\210\341!\210\342\343\"+\207" args *object* v *env* n escm-debug 1 escm-dynamic-env iter 5 "*valdic*" "\306\307\"\210\310C\311\312
+        #*\313!\240\210*\306\314\"\210\315\313!@)D\311\316
+        #\210*\306\317\"\210\315\313!\240\210*\306\320\"\210\314
+\321!
+\"
+\307V\203c\322\"B\" 
+S\211\202Q\323\"\"\210+\306\324\"\210\305C\311\325 
+        #*\314\307\321!@)BBB\321!\240\210*\306\326\"\210\315C\311\327
+        #*
+##\206\254\330! 
+#\331\332#!\"\210\333\334#!\"\210\335\336#\"\"\210\337!\210\340\341\"+\207" 3 a b 6 "\306\307\"\210\310\311!     \307V\203
+\312 
+B      S\211\202\313 
+\"\210+\306\310\"\210\307\301C
+
+\314\315
+#*\311!@)BB
+
+\311!
+\240\210*\306\316\"\210\317C
+
+\314\320
+#*
+
+\321 \210
+\206i\322! 
+
+\323\324
+!\"\210\325\326
+!\"\210\327\330
+\"\"\210\331!\210\332\333\"+\207" stack escm-vm::get-arg-stack escm-vm::set-arg-stack escm-cbos::run-method escm-env::gref 2 = escm-env::fref escm-debug::enter escm-vm::current-val escm-vm::push-src escm-proc::get-src escm-vm::push-proc escm-proc::get-body escm-vm::push-env escm-proc::runtime-env escm-vm::pop-arg escm-vm::push-pc -1 proc 7 "\302\303\"\210\304!@)\205
+\305\306    \307!\\\"*\207" escm-vm::get-val-stack escm-vm::set-current-pc escm-vm::current-pc "\306\307\"\210\310\311!      \307V\203 
+\312 
+B      S\211\202\313 
+\"\210+\306\310\"\210\314C
+
+\315\316
+#*
+\"\317\"\320!B\"\210*\306\321\"\210\310\311!  \307V\203a\312 
+B      S\211\202Q\313 
+\"\210+\306\322\"\210\314C
+
+\315\316
+#*\323C
+
+\315\316
+#*\311!@)BB
+#\311!#\240\210*\306\324\"\210\325C
+
+\315\326
+#*
+$\327 \210$\206\266\330! 
+$\331\332$!\"\210\333\334$!\"\210\335\336$\"\"\210\337!\210\340\341\"+\207" escm-vm::set-current-arg escm-vm::current-arg + arg "\306\307\"\210\211\310!@)\311  \312!B\"\210*\306\313\"\210\313\314!
+\307V\2037\315B 
+S\211\202'\316\"\210+\306\317\"\210\313\302C 
+
+ \320\321 
+#*\314!@)BB
+!\314!!\240\210*\306\322\"\210\323C
+
+ \320\324 
+#*
+\"\325 \210\"\206\206\326! 
+\"\327\330\"!\"\210\331\332\"!\"\210\333\334\"\"\"\210\335!\210\336\337\"+\207" - "\306\307\"\210\211\310!@)\311        \312!B\"\210*\306\313\"\210
+\314C
+\315\316#*
+
+\2063\317! 
+\320\321
+!\"\210\322\323
+!\"\210\324\325
+\"\"\210\326!\210\327\330\"+\207" escm-vm::set-current-src escm-vm::set-current-proc escm-vm::set-current-env "\302\303\"\210\304\305   \306!\\\"*\207" "\306\307\"\210\310\311! \307V\203
+\312 
+B      S\211\202\313 
+\"\210+\306\310\"\210\314C
+
+\315\316
+#*\317C
+
+\315\316
+#*\311!@)BB
+
+\311!
+\240\210*\306\320\"\210\321C
+
+\315\322
+#*
+
+
+\206p\323! 
+
+\324\325
+!\"\210\326\327
+!\"\210\330\331
+\"\"\210\332!\210\333\334\"+\207" "\301\302\"\210\303!\210\304!\210\305!\210\306!\210\307 )\207" escm-vm::pop-src escm-vm::pop-proc escm-vm::pop-env escm-vm::pop-pc escm-debug::leave escm-iproc (list (vector (quote escm-iblock) (quote (list nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil nil nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil)) (quote t))) (lambda (a b n) (if (= n 0) (+ a b) (iter b (+ a b) (- n 1)))) escm-proc::activate escm-env::gset! (list (vector (quote escm-iblock) (quote (list nil nil nil nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil)) (quote t))) (lambda (n) (define (iter a b n) (if (= n 0) (+ a b) (iter b (+ a b) (- n 1)))) (iter 0 1 n)) 10 (list (vector (quote escm-iblock) (quote (list nil nil nil nil nil nil)) (quote t)) (vector (quote escm-iblock) (quote (list nil)) (quote t))) (lambda nil (define (fib n) (define (iter a b n) (if (= n 0) (+ a b) (iter b (+ a b) (- n 1)))) (iter 0 1 n)) (fib 10)) escm-vm::get-env-stack] 83]
+
+(escm-vm::new)
+)
+
+
 
 
@@ -59 +193 @@
            (+ (fib (- n 2))
               (fib (- n 1)))))
-       (fib 7))))
+       (fib 10))))
 
   (escm-vm::eval
@@ -89 +223 @@
           (funcall bm `((lambda () ,@def (fib 1))))
           (funcall bm `((lambda () ,@def (fib 10))))
-          (funcall bm `((lambda () ,@def (fib 100))))))
+          (funcall bm `((lambda () ,@def (fib 15))))))
 
   (escm-vm::eval (escm-vm::new) '`a)

lang/elisp/escm/trunk/src/elisp/escm-arity.el

@@ -32 +32 @@
                          length
                          symbols
-                         at-least)
+                         at-least
+
+                         begin
+                         pos
+                         env)
 
 (defsubst escm-arity::new (argspec)

lang/elisp/escm/trunk/src/elisp/escm-base.el

@@ -2 +2 @@
 (require 'escm-cbos)
 (require 'escm-test)
+
 (escm-cbos::define-class (escm-object))
 
@@ -21 +22 @@
    (escm-unsupported   "")))
 
+;; variables
+(defconst escm-compiler-varsion 0.01)
+(defconst escm-icode::indent "" "")
+
+
 (provide 'escm-base)

lang/elisp/escm/trunk/src/elisp/escm-compile.el

@@ -33 +33 @@
 (require 'escm-context)
 
+(defun escm-elize (context)
+  `(lambda (vm)
+     (let ,(escm-context::get-all-symbols context)
+       ,@(escm-context::build-object-definer context)
+       ,@(escm-context::build-vm-manupilator context))))
+
+
+
+(defsubst escm-compile::sympp (sym)
+  (case (symbol-name sym)
+    (("`")  'quasiquote)
+    ((",")  'unquote)
+    ((",@") 'unquote-splicing)
+    (t sym)))
+
 (defun escm-compile (context sexp)
   "Compiles sexp."
   (cond
+   ;; applying procedure  or expanding macro
    ((and sexp (consp sexp))
     (let* ((head  (car sexp))
@@ -41 +57 @@
            (headv (when (symbolp head)
                     (condition-case *err*
-                        (escm-env::gref env head)
+                        (escm-env::gref env (escm-compile::sympp head))
                       (escm-void-variable)))))
       (cond
@@ -47 +63 @@
         (escm-syntax::apply headv context sexp))
        (t (escm-compile-apply context sexp)))))
+
+   ;; refering symbol-value
    ((and sexp
          (symbolp sexp))
@@ -52 +70 @@
                     ,sexp
                     ,(escm-context::get-env context)))))
-   (t              (escm-icode `((store  ,sexp))))))
+
+   ;; sexp
+   (t (escm-icode `((store  ,sexp))))))
 ;;(escm-vm::eval (escm-vm::new) '(+ 1 2))
 
@@ -112 +132 @@
 ;; (escm-test::run 'escm 'escm-compile-apply)
 
+
 (defsubst escm-compile-if::ifv0 (context condx positivex negativex)
   ""
@@ -192 +213 @@
   (let* ((elfun (byte-compile (cons 'lambda (cdr sexp)))))
     (escm-icode `((store ,(escm-wrapped-proc::new elfun))))))
+
+(defun escm-compile-elmeth ()
+  (let* ((elfun (byte-compile (cons 'lambda (cdr sexp)))))
+    (escm-icode `((store ,(escm-wrapped-vm-method::new elfun))))))
 
 
@@ -288 +313 @@
                        (escm-compile (escm-context::set-tail? ctx t) last))
     (escm-iproc::merge proc (escm-icode '((ret))))
-    (escm-iproc::to-proc proc arity (escm-context::get-env ctx))))
+    (escm-iproc::to-proc
+     proc
+     arity
+     (let ((env (escm-context::get-env ctx)))
+       (escm-env::set-parent env nil)
+       env))))
 
 ;;
@@ -388 +418 @@
      (define        escm-compile-define)
      (lambda        escm-compile-lambda)
-     (elambda       escm-compile-elambda)))
+     (elambda       escm-compile-elambda)
+     (elmeth        escm-compile-elmeth)))
 
    (escm-vm::eval
@@ -394 +425 @@
     '(define-syntax quasiquote
          (lambda (_ . body)
-           (expand-quasiquote (list 'quote body)))))
-  )
+           (expand-quasiquote (list 'quote body))))))
 
 (add-hook 'escm-vm::init-hook (function escm-compile::init-vm))

lang/elisp/escm/trunk/src/elisp/escm-context.el

@@ -31 +31 @@
 (escm-cbos::define-class
  (escm-context escm-object t)
- (objdic :copy)  ;; created objects.
+ (objdic)        ;; created objects.
+ (vm)            ;; virtual machine.
+ (rootenv)       ;;
  (env    :copy)  ;; environment of current context.
- (vm     :copy)  ;; virtual machine.
  (tail?  :copy)  ;; non nil if current context is terminal.
  (func?  :copy))
 
-(defconst escm-context::gensym::counter 0)
-(defsubst escm-context::gensym ()
-  (intern
-   (format "escm-context::gensym::symbol::%s"
-           (setq escm-context::gensym::counter
-                 (1+ escm-context::gensym::counter)))))
 
 (defsubst escm-context::new (env &optional vm objdic)
-  (escm-context::set-objdic
-   (escm-context::set-vm
-    (escm-context::set-env
-     (create-escm-context)
-     env)
-    vm)
-   (or objdic (list nil))))
-
+  (let ((new (escm-context::set-env (create-escm-context) env)))
+    ;;(escm-context::set-objdic new (or objdic (escm-context::gensym)))
+    (escm-context::set-vm     new vm)
+    new))
 
 (defsubst escm-context::push (self &optional syms)
@@ -60 +51 @@
    (escm-context::get-objdic self)))
 
-(defsubst escm-context::define (self obj)
-  (let ((sym (escm-context::gensym))
-        (dic (escm-context::get-objdic self)))
-    (set-car dic (cons (cons sym val)
-                       (car dic)))
-    sym))
-
-(defsubst escm-context::elize (self)
-  `(let*
-       ,(mapcar
-         (lambda (step)
-           (list (car step)
-                 (escm-object::to-source (cdr spec))))
-         (reverse (car
-                   (escm-context::get-objdic
-                    self))))))
 
 ;;;
 (escm-cbos::define-class (escm-reference escm-object) (sym))
+
 (defsubst escm-reference::new (sym)
   (let ((new (create-escm-reference)))
@@ -84 +60 @@
     new))
 
-(escm-cbos::define-method nil escm-object::elize (context self)
-  (cond
-   ((consp self) (list 'quote self))
+(defsubst escm-context::define (self obj)
+  (let ((sym (escm-util::gensym))
+        (dic (escm-context::get-objdic self)))
+    (put dic sym val)
+    (escm-reference::new sym)))
+
+(defsubst escm-context::ref (self sym)
+  (get (escm-context::get-objdic self) sym))
+
+(defsubst escm-context::get-all-symbols (self)
+  (mapcar 'car (escm-util::plist-to-alist
+                (symbol-plist (escm-context::get-objdic self)))))
+
+(defsubst escm-context::build-object-definer (self)
+  (mapcar (lambda (def)
+            `(setq ,(car def)
+                   ,(escm-object::elize (cdr def)))
+            (escm-util::plist-to-alist
+             (symbol-plist (escm-context::get-objdic self))))))
+
+(defsubst escm-context::build-vm-manupilator (self)
+  `(funcall ,(
+              ;; Get reference of top -level form
+              )
+            vm))
+
+
+(defsubst escm-object::value-default (self context)
+  (cond 
+   ((null self) nil)
+   ((consp self)
+    (cons (escm-object::value (car self) context))
+    (cons (escm-object::value (cdr self) context)))
+   ((vectorp self)
+    (apply 'vector
+           (mapcar (lambda (v) (escm-object::value v context))
+                   self)))
    (t self)))
 
-(escm-cbos::define-method nil escm-object::value (context self) self)
 
-(escm-cbos::define-method escm-reference escm-object::elize (context self)
-  (escm-reference::get-sym self))
 
-(escm-cbos::define-method escm-reference escm-object::value (context self) self
+
+
+
+
+(escm-cbos::define-method nil escm-object::value (self context)
+  (escm-object::value-default self context))
+
+(escm-cbos::define-method
+  escm-reference escm-object::value (self context) self
   (escm-context::ref context (escm-reference::get-sym self)))
 
-(escm-cbos::define-method escm-env escm-object::elize (context self)
-  (let* ((syms   (escm-env::get-fields self))
-         (symval (mapcar (lambda (s) (cons s (escm-env::gref self s))) syms)))
-    `(let ((e (escm-fixed-env::new ,syms)))
-       ,@(mapcar (lambda (sv)
-                   `(escm-env::gset!
-                     e ',(car sv) ,(escm-object::elize (cdr sv))))
-                 symval)
-       e)))
-
-(escm-cbos::define-method escm-proc escm-object::elize (self)
-  )
+(escm-cbos::define-method escm-reference escm-object::elize (self context)
+  (escm-reference::get-sym self))
 
 (provide 'escm-context)

lang/elisp/escm/trunk/src/elisp/escm-env.el

@@ -29 +29 @@
 (defconst escm-env::class-diagram nil "
 
-                             +--------------+
-                             |   escm-env   |
-                             | <<abstract>> |
-                             +--------------+
-                                    A
-                                    |
-          +-------------------+-----+---------------+---------+
-          |                   |                     |         |
- +----------------+  +--------+---------+  +--------+-------+ |
- | escm-fixed-env |<-+ escm-dynamic-env |  | escm-elisp-env | |
- +----------------+  -------------------+  +--------+-------+ |
-                              A                     |         |
-                              |                     |         |
-                       +------+--------+            |         |
-                       | escm-root-env |<>----------+         |
-                       +---------------+          +-----------+-----------+
-                                                  | escm-wrapped-proc-env |
-                                                  +-----------------------+
-
-  escm-env              ... abstract root class of escm environment.
-  escm-fixed-env        ... runtime environment for any procedures.
-  escm-dynamic-env      ... it derives escm-fixed-env.
-  escm-root-env         ... environment that exists when vm initialized.
-  escm-elisp-env        ... this is able to access to native elisp environment.
-  escm-wrapped-proc-env ... pseudo env for procedure that wrapped elisp function.
-
+                               +--------------+
+                               |   escm-env   |
+                               | <<abstract>> |
+                               +------+-------+
+                                     /_\
+                                      |
+                  +-------------------+---------------------+---------+
+                  |                   |                     |         |
+         +----------------+  +--------+---------+  +--------+-------+ |
+         | escm-fixed-env |<-+ escm-dynamic-env |  | escm-elisp-env | |
+         +--------+-------+  +--------+---------+  +----------+-----+ |
+                 /_\                 /_\                      |       |
+                  |                   |                       |       |
+          +-------+               +---+-----------------+     |       |
+          |                       |                     |    < >      |
+   +------+-------+     +---------+------------+ +------+-----+--+    |
+   | escm-library |<----+ escm-dynamic-library | | escm-root-env |    |
+   +--------------+     +----------------------+ +---------------+    |
+                                                     +----------------+------+
+                                                     | escm-wrapped-proc-env |
+                                                     +-----------------------+
+    
+  escm-env              ... Abstract root class of escm environment.
+  escm-fixed-env        ... Runtime environment for any procedures.
+  escm-dynamic-env      ... It derives escm-fixed-env.
+  escm-root-env         ... Environment that exists when vm initialized.
+  escm-elisp-env        ... This is able to access to native elisp environment.
+  escm-wrapped-proc-env ... Pseudo env for procedure that wrapped elisp function.
+  escm-library          ... Library that specified by R6RS.
+  escm-dynamic-library  ... Compiling time library that specified by R6RS.
 ")
 
@@ -218 +222 @@
 (require 'escm-arity)
 (escm-cbos::define-class (escm-dynamic-env escm-env)
-                         valdic arity fields)
+                         valdic
+                         arity
+                         fields)
 
 (defsubst escm-dynamic-env::new (parent list)
@@ -289 +295 @@
                                   (eq 3 (escm-env::gref gg 'a))))))
 ;; (escm-test::run 'escm 'dynamic-env)
+
+(escm-cbos::define-class (escm-pseudo-env escm-dynamic-env))
+(defsubst escm-pseudo-env::new (parent)
+  (let ((new (create-escm-pseudo-env)))
+    new))
+
+(escm-cbos::define-method
+  escm-pseudo-env escm-env::define (self sym)
+  ())
+
+
+
 
 ;;;

lang/elisp/escm/trunk/src/elisp/escm-iblock-content.el

@@ -55 +55 @@
                ,(escm-env::make-function-referer env '*env* sym)))
            nil
-           nil)
+           ((store . (lambda (self prev) self))))
 
     ;;
@@ -63 +63 @@
                ,(escm-env::make-referer env '*env* sym)))
            nil
-           nil)
+           ((store . (lambda (self prev) self))))
 
     ;;
@@ -83 +83 @@
              `(escm-vm::set-current-val vm ,val))
            nil
-           nil)
+           ((store . (lambda (self prev) self))))
 
     ;; 
@@ -185 +185 @@
                     (escm-proc::activate ,val vm)))
                 nil
-                nil)
+                ((store . (lambda (self prev) self))))
 
     ;;

lang/elisp/escm/trunk/src/elisp/escm-iblock.el

@@ -115 +115 @@
 (defsubst escm-iblock::build (self &optional p)
   (let ((p (or p 0)))
-;;    (byte-compile
+    (byte-compile
      `(lambda (vm *env*)
         ,@(mapcar (lambda (ic)
@@ -122 +122 @@
                       r))
                   (escm-iblock::get-body self)))
-;;     )
+     )
     ))
 

lang/elisp/escm/trunk/src/elisp/escm-icode.el

@@ -52 +52 @@
                                          +---------------+
 ")
-(defconst escm-icode::indent "" "")
+