[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erbot-cvs] Changes to erbot/erbc3.el
From: |
D . Goel |
Subject: |
[Erbot-cvs] Changes to erbot/erbc3.el |
Date: |
Mon, 28 Feb 2005 16:12:25 -0500 |
Index: erbot/erbc3.el
diff -u erbot/erbc3.el:1.21 erbot/erbc3.el:1.22
--- erbot/erbc3.el:1.21 Mon Feb 28 21:05:45 2005
+++ erbot/erbc3.el Mon Feb 28 21:12:24 2005
@@ -1,5 +1,5 @@
;;; erbc3.el ---erbot lisp stuff which should be PERSISTENT ACROSS SESSIONS.
-;; Time-stamp: <2005-02-09 13:09:38 deego>
+;; Time-stamp: <2005-02-28 16:10:57 deego>
;; Copyright (C) 2003 D. Goel
;; Emacs Lisp Archive entry
;; Filename: erbc3.el
@@ -267,14 +267,14 @@
-(defmacro fsi-defun (fcn &rest body)
+(defmacro fsi-defun (fcn args &rest body)
;; the given fcn icould be a number or string, in which
;; case sandboxing won't touch it, so we need to override that case.
(unless
(and (listp body)
- (> (length body) 1))
- (error "Function body should have a length of 2 or more"))
+ (> (length body) 0))
+ (error "Function body should have a length of 1 or more"))
(unless (symbolp fcn)
(error "Defun symbols only! :P"))
@@ -284,7 +284,12 @@
erbn-pf-file
(erbn-create-defun-overwrite
(erbutils-file-sexps erbn-pf-file)
- (cons 'defun (cons fcn body)) fcn))
+ (cons 'defun
+ (cons fcn
+ (cons args
+ (cons
+ '(sit-for 0)
+ body)))) fcn))
(fsi-pf-load)
`(quote ,fcn))