Changeset 14542 in project


Ignore:
Timestamp:
05/07/09 05:29:45 (11 years ago)
Author:
Kon Lovett
Message:

Release

Location:
release/4/srfi-9-ext
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/srfi-9-ext/tags/1.0.0/srfi-9-ext.scm

    r14539 r14542  
    1313(module srfi-9-ext (define-record-type/primitive)
    1414
     15(import scheme chicken)
     16
    1517;; SRFI-9 workalike w/o record type checking & immediate reference.
    1618;; needs (include "chicken-primitive-object-inlines")
     
    1921  (lambda (form rename compare)
    2022    (let ((_begin (rename 'begin))
    21           (_define-inline (rename 'define-inline)) )
     23          (_define (rename 'define)) )
    2224      (let ((tag (cadr form))
    2325            (ctor (caddr form))
     
    3032                         slots)))
    3133          `(,_begin
    32              (,_define-inline ,ctor (%make-structure ',tag ,@inits))
    33              (,_define-inline (,pred x) (%structure-instance? x ',tag))
     34             (,_define ,ctor (%make-structure ',tag ,@inits))
     35             (,_define (,pred x) (%structure-instance? x ',tag))
    3436             ,@(let loop ((slots slots) (i 1))
    3537                 (if (null? slots) '()
     
    3739                       `(,@(if (null? (cddr slot)) '()
    3840                               `((define (,(caddr slot) x y) (%structure-set! x ,i y))))
    39                          (,_define-inline (,(cadr slot) x) (%structure-ref x ,i) )
     41                         (,_define (,(cadr slot) x) (%structure-ref x ,i) )
    4042                         ,@(loop (cdr slots) (add1 i)) ) ) ) ) ) ) ) ) ) )
    4143
  • release/4/srfi-9-ext/trunk/srfi-9-ext.scm

    r14539 r14542  
    1313(module srfi-9-ext (define-record-type/primitive)
    1414
     15(import scheme chicken)
     16
    1517;; SRFI-9 workalike w/o record type checking & immediate reference.
    1618;; needs (include "chicken-primitive-object-inlines")
     
    1921  (lambda (form rename compare)
    2022    (let ((_begin (rename 'begin))
    21           (_define-inline (rename 'define-inline)) )
     23          (_define (rename 'define)) )
    2224      (let ((tag (cadr form))
    2325            (ctor (caddr form))
     
    3032                         slots)))
    3133          `(,_begin
    32              (,_define-inline ,ctor (%make-structure ',tag ,@inits))
    33              (,_define-inline (,pred x) (%structure-instance? x ',tag))
     34             (,_define ,ctor (%make-structure ',tag ,@inits))
     35             (,_define (,pred x) (%structure-instance? x ',tag))
    3436             ,@(let loop ((slots slots) (i 1))
    3537                 (if (null? slots) '()
     
    3739                       `(,@(if (null? (cddr slot)) '()
    3840                               `((define (,(caddr slot) x y) (%structure-set! x ,i y))))
    39                          (,_define-inline (,(cadr slot) x) (%structure-ref x ,i) )
     41                         (,_define (,(cadr slot) x) (%structure-ref x ,i) )
    4042                         ,@(loop (cdr slots) (add1 i)) ) ) ) ) ) ) ) ) ) )
    4143
Note: See TracChangeset for help on using the changeset viewer.