summaryrefslogtreecommitdiff
path: root/legacy/bigloo/new.sch
blob: 16bb7d5e4fda92debb424c998bd470e72d892075 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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))