Changeset 16073 in project


Ignore:
Timestamp:
09/24/09 20:27:20 (10 years ago)
Author:
Kon Lovett
Message:

Made sys api an include

Location:
release/4/srfi-102/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-102/trunk/_sys-pi-api.scm

    r16072 r16073  
    6161|#
    6262
    63 (declare
    64   (uses library data-structures srfi-1)
    65   (export
    66     ##sys#min
    67     ##sys#any
    68     ##sys#every
    69     ##sys#procedure-arity
    70     ##sys#procedure-name
    71     ##sys#procedure-docstring
    72     ##sys#procedure-source-file
    73     ##sys#procedure-source-position
    74     ##sys#procedure-expression
    75     ##sys#procedure-environment
    76     ##sys#procedure-signature
    77     ##sys#procedure-metadata
    78     ##sys#arity-at-least?
    79     ##sys#check-arity
    80     ##sys#check-arity-at-least) )
     63  (import (only data-structures identity) (only srfi-1 any every))
     64
     65  (require-library srfi-1 data-structures)
    8166
    8267;;;
  • release/4/srfi-102/trunk/procedure-decoration.scm

    r16072 r16073  
    2828          (only type-checks
    2929                check-procedure check-cardinal-fixnum
    30                 define-check+error-type)
    31           _sys-pi-api)
     30                define-check+error-type))
    3231
    33   (require-library type-checks _sys-pi-api)
     32  (require-library type-checks)
    3433
    3534;;;
     
    4039
    4140;;
     41
     42(define (##sys#update-lambda-decoration proc pred decr)
     43  (define (setter proc i) (##sys#setslot proc i (decr (##sys#slot proc i))) proc)
     44  (##sys#decorate-lambda proc pred setter) )
    4245
    4346(define *lambda-decoration ##sys#lambda-decoration)
  • release/4/srfi-102/trunk/procedure-introspection.scm

    r16072 r16073  
    2323
    2424  (import scheme
    25           chicken
    26           _sys-pi-api)
     25          chicken)
    2726
    28   (require-library srfi-1 _sys-pi-api)
    29 
    30 ;;;
     27  (include "_sys-pi-api")
    3128
    3229;;;
  • release/4/srfi-102/trunk/srfi-102.setup

    r16072 r16073  
    44
    55(verify-extension-name "procedure-decoration")
    6 
    7 (setup-shared-extension '_sys-pi-api (extension-version "0.0.0")
    8   #:compile-options '(-optimize-level 3 -debug-level 0
    9                       -no-procedure-checks -no-bounds-checks -no-argc-checks
    10                       -disable-interrupts))
    116
    127(setup-shared-extension-module 'procedure-introspection (extension-version "0.0.0")
Note: See TracChangeset for help on using the changeset viewer.