Changeset 15171 in project


Ignore:
Timestamp:
07/06/09 11:23:55 (10 years ago)
Author:
felix winkelmann
Message:

fix in foreign-value; tests use own repo; other fixes (thanks to sjaaman)

Location:
chicken/trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-ffi-syntax.scm

    r15164 r15171  
    143143      `(,(r 'begin)
    144144        (,(r 'define-foreign-variable) ,tmp
     145         ,(caddr form)
    145146         ,(cond ((string? code) code)
    146147                ((symbol? code) (symbol->string code))
    147                 (else (syntax-error 'foreign-value "bad argument type - not a string or symbol" code)))
    148          ,(caddr form))
     148                (else (syntax-error 'foreign-value "bad argument type - not a string or symbol" code))))
    149149        ,tmp) ) ) ) )
    150150
  • chicken/trunk/chicken-install.scm

    r15149 r15171  
    4141  (define +default-repository-files+
    4242    '("setup-api.so" "setup-api.import.so"
    43       "setup-utils.so" "setup-utils.import.so"
    4443      "setup-download.so" "setup-download.import.so"
    4544      "chicken.import.so"
     
    6362      "csi.import.so"
    6463      "irregex.import.so"
    65       "setup.defaults"
    6664      "types.db"))
    6765
  • chicken/trunk/expand.scm

    r15168 r15171  
    485485                          (err "`#!key' argument marker in wrong context") ) ]
    486486                     [else
    487                       (cond [(symbol? x)
     487                      (cond [(symbol? var)
    488488                             (case mode
    489                                [(0) (loop 0 (cons x req) '() '() r)]
    490                                [(1) (loop 1 req (cons (list x #f) opt) '() r)]
     489                               [(0) (loop 0 (cons var req) '() '() r)]
     490                               [(1) (loop 1 req (cons (list var #f) opt) '() r)]
    491491                               [(2) (err "invalid lambda list syntax after `#!rest' marker")]
    492                                [else (loop 3 req opt (cons (list x) key) r)] ) ]
    493                             [(and (list? x) (eq? 2 (length x)))
     492                               [else (loop 3 req opt (cons (list var) key) r)] ) ]
     493                            [(and (list? var) (eq? 2 (length var)))
    494494                             (case mode
    495495                               [(0) (err "invalid required argument syntax")]
    496                                [(1) (loop 1 req (cons x opt) '() r)]
     496                               [(1) (loop 1 req (cons var opt) '() r)]
    497497                               [(2) (err "invalid lambda list syntax after `#!rest' marker")]
    498                                [else (loop 3 req opt (cons x key) r)] ) ]
     498                               [else (loop 3 req opt (cons var key) r)] ) ]
    499499                            [else (err "invalid lambda list syntax")] ) ] ) ) ] ) ) ) ) ) )
    500500
  • chicken/trunk/rules.make

    r15170 r15171  
    12501250testclean:
    12511251        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(SRCDIR)tests/*.out $(SRCDIR)tests/tmp* \
    1252           $(SRCDIR)tests/*.so $(SRCDIR)tests/*.import.scm
     1252          $(SRCDIR)tests/*.so $(SRCDIR)tests/*.import.scm $(SRCDIR)tests/repository
    12531253
    12541254# run tests
  • chicken/trunk/tests/module-tests.scm

    r11395 r15171  
    146146            1)
    147147
     148(module m14 (test-extlambda)
     149  (import chicken scheme)
     150  (define (test-extlambda string #!optional whatever)
     151    string))
     152
     153(import m14)
     154
     155(test-equal "extended lambda list uses expansion environment"
     156            "some text"
     157            (test-extlambda "some text"))
     158
    148159(test-end "modules")
  • chicken/trunk/tests/runtests.sh

    r15119 r15171  
    66export DYLD_LIBRARY_PATH=${TEST_DIR}/..
    77export LD_LIBRARY_PATH=${TEST_DIR}/..
     8
     9mkdir -p test-repository
     10$TEST_DIR/../chicken-install -init test-repository
     11export CHICKEN_REPOSITORY=$TEST_DIR/test-repository
    812
    913CHICKEN=../chicken
Note: See TracChangeset for help on using the changeset viewer.