Changeset 14676 in project


Ignore:
Timestamp:
05/17/09 16:05:50 (11 years ago)
Author:
sjamaan
Message:

Fix setup file and import statement

Location:
release/4/sql-null
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sql-null/sql-null.scm

    r14673 r14676  
    66  (sql-null sql-null? sql-not sql-or sql-or sql-and sql-coalesce)
    77
    8 (import chicken scheme)
     8(import chicken scheme data-structures)
    99
    1010;; We could also (define-record sql-null) and alias sql-null to make-sql-null
     
    1212(define-record sql-null-type)
    1313(define sql-null-object (make-sql-null-type))
    14 (define sql-null (lambda () sql-null-object))
     14(define sql-null (constantly sql-null-object))
    1515(define sql-null? sql-null-type?)
    1616
  • release/4/sql-null/sql-null.setup

    r6433 r14676  
    22;;; Ivan Shmakov, 2007  This code is in public domain.
    33
    4 (define has-exports? (string>=? (chicken-version) "2.310"))
     4(compile -s -O2 -j sql-null sql-null.scm)
     5(compile -s sql-null.import.scm)
    56
    6 (compile -s -O2 -d1
    7         ,@(if has-exports? '(-check-imports -emit-exports sql-null.exports) '())
    8   sql-null-support.scm)
    9 
    10 (install-extension 'sql-null
    11                    '("sql-null.scm" "sql-null-support.so" "sql-null.html")
    12                    `((version "1.1")
    13                      (syntax)
    14                      (require-at-runtime sql-null-support)
    15                                  ,@(if has-exports? `((exports "sql-null.exports")) '())
    16                      (documentation "sql-null.html")))
     7(install-extension
     8 'sql-null
     9 '("sql-null.so" "sql-null.import.so" "sql-null.html")
     10 `((version "1.1")
     11   (documentation "sql-null.html")))
    1712
    1813;;; sql-null.setup ends here
Note: See TracChangeset for help on using the changeset viewer.