diff options
Diffstat (limited to 'src/bigloo/new.sch')
| -rw-r--r-- | src/bigloo/new.sch | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/bigloo/new.sch b/src/bigloo/new.sch new file mode 100644 index 0000000..16bb7d5 --- /dev/null +++ b/src/bigloo/new.sch @@ -0,0 +1,17 @@ +;*=====================================================================*/ +;* serrano/prgm/project/skribe/src/bigloo/new.sch */ +;* ------------------------------------------------------------- */ +;* Author : Manuel Serrano */ +;* Creation : Sun Aug 17 11:58:30 2003 */ +;* Last change : Wed Sep 10 11:14:15 2003 (serrano) */ +;* Copyright : 2003 Manuel Serrano */ +;* ------------------------------------------------------------- */ +;* The new facility */ +;*=====================================================================*/ + +;*---------------------------------------------------------------------*/ +;* new ... */ +;*---------------------------------------------------------------------*/ +(define-macro (new id . inits) + `(,(symbol-append 'instantiate::% id) ,@inits)) + |