Changeset 35246 in project


Ignore:
Timestamp:
03/04/18 22:35:31 (7 months ago)
Author:
kon
Message:

workaround int & foreign-value unrecognized, & foreign is imported

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/check-errors/trunk/type-errors.scm

    r35238 r35246  
    246246  (error-interval loc num +left-closed-interval+ min max +right-open-interval+ argnam))
    247247
     248(declare
     249  (bound-to-procedure
     250    ##sys#number->string) )
     251
     252(: ##sys#number->string (number --> string))
     253
    248254(define (error-minimum-argument-count loc argc minargc)
     255  (##sys#signal-hook
     256    #:arity-error loc
     257    (string-append
     258      "too few arguments - received " (##sys#number->string argc)
     259      " but expected " (##sys#number->string minargc)))
     260  #; ;int & foreign-value unrecognized, & foreign is imported
    249261  (##sys#error-hook
    250262    (foreign-value "C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR" int)
     
    253265
    254266(define (error-argument-count loc argc maxargc)
     267  (##sys#signal-hook
     268    #:arity-error loc
     269    (string-append
     270      "bad argument count - received " (##sys#number->string argc)
     271      " but expected " (##sys#number->string maxargc)))
     272  #; ;int & foreign-value unrecognized, & foreign is imported
    255273  (##sys#error-hook
    256274    (foreign-value "C_BAD_ARGUMENT_COUNT_ERROR" int)
Note: See TracChangeset for help on using the changeset viewer.