Changeset 12804 in project


Ignore:
Timestamp:
12/09/08 11:11:00 (11 years ago)
Author:
felix winkelmann
Message:

ported to chicken 4

Location:
release/4/records
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/records/records.scm

    r2615 r12804  
    1818(declare
    1919  (fixnum)
    20   (uses srfi-1)
    21   (no-bound-checks)
    22   (export record-modifier
     20  (no-bound-checks) )
     21
     22(module records
     23
     24  (record-modifier
    2325          record-accessor
    2426          record-constructor
    2527          record-predicate
    26           make-record-type) )
     28          make-record-type)
     29
     30(import scheme chicken)
     31(use srfi-1)
    2732
    2833(define (rtd? x) (##sys#structure? x 'rtd))
     
    124129          (##sys#check-structure x name '<rtd-modifier>)
    125130          (##sys#setslot x i y))))))
     131
     132)
  • release/4/records/records.setup

    r2615 r12804  
    1 (compile -s -O2 -d0 records.scm -emit-exports records.exports -inline)
     1(compile -s -O2 -d1 records.scm -j records)
     2(compile -c -O2 -d1 records.scm)
     3(compile -host -s -O2 -d0 records.import.scm)
    24(install-extension
    35 'records
    4  '("records.so" "records.html")
     6 '("records.so" "records.import.so" "records.o")
    57 '((documentation "records.html")
    6    (exports "records.exports")
    7    (version 1.0) ) )
     8   (static "records.o")
     9   (version 1.2) ) )
Note: See TracChangeset for help on using the changeset viewer.