Fix return value of define/defun, reverting the last patch

Author: shinh

eval.l

@@ -1,6 +1,7 @@
 (defun cadr (s) (car (cdr s)))
 (defun cddr (s) (cdr (cdr s)))
 
+;(defun table-add (m k v) (if m (if (eq (car m) k) (cons k (cons v (cddr m))) (cons (car m) (cons (cadr m) (table-add (cddr m) k v)))) (cons k (cons v nil))))
 (defun table-add (m k v) (cons k (cons v m)))
 
 (define gval-table ())
@@ -132,5 +133,5 @@
 ;(eval (quote (defun func2 (b) (+ b (func 99)))))
 ;(eval (quote (func2 42)))
 
-(eval (quote (defmacro let (l e) (cons (cons lambda (cons (cons (car l) nil) (cons e nil))) (cons (car (cdr l)) nil)))))
-(eval (quote (let (x 42) x)))
+;(eval (quote (defmacro let (l e) (cons (cons lambda (cons (cons (car l) nil) (cons e nil))) (cons (car (cdr l)) nil)))))
+;(eval (quote (let (x 42) x)))

sedlisp.sed

@@ -115,10 +115,11 @@ s/  */ /g
 
   s/(defun \(\S\+\) (\([^()]*\)) \(.*\))/;\1;(lambda (\2) \3)$;/
   y/() /{}_/
-  G
-  s/^\(;\([^;]*\);[^;]*;.*\n\);\2;[^;]*;\n/\1/
+  H
+  x
+  s/\(.*;\)\(.*\)\(\n[^\n]*\)$/\1\3\2/
   x
-  s/^;[^;]*;\([^;]*\);.*/\1/
+  s/;.*;\(.*\);/\1/
   bloop
 }
 
@@ -496,10 +497,11 @@ s/\n.*//
   }
 
   s/(define' '\(\S\+\) \(.*\))/;\1;\2;/
-  G
-  s/^\(;\([^;]*\);[^;]*;.*\n\);\2;[^;]*;\n/\1/
+  H
+  x
+  s/\(.*;\)\(.*\)\(\n[^\n]*\)$/\1\3\2/
   x
-  s/^;[^;]*;\([^;]*\);.*/\1/
+  s/;.*;\(.*\);/\1/
   bpop_context
 }