Changeset 13138 in project for chicken


Ignore:
Timestamp:
01/31/09 10:19:20 (11 years ago)
Author:
Kon Lovett
Message:

Chgd "can not" to "cannot" - saves bytes you know ;-)

Location:
chicken/trunk
Files:
16 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/benchmarks/scheme.scm

    r1016 r13138  
    8787    (scheme-error "Identifier expected" x))
    8888  (if (memq x scheme-syntactic-keywords)
    89     (scheme-error "Variable name can not be a syntactic keyword" x)))
     89    (scheme-error "Variable name cannot be a syntactic keyword" x)))
    9090
    9191(define (shape form n)
  • chicken/trunk/c-backend.scm

    r12937 r13138  
    14261426             str) ) )
    14271427         ((##sys#immediate? lit)
    1428           (bomb "invalid literal - can not encode" lit))
     1428          (bomb "invalid literal - cannot encode" lit))
    14291429         ((##core#inline "C_byteblockp" lit)
    14301430          (##sys#string-append ; relies on the fact that ##sys#string-append doesn't check
  • chicken/trunk/chicken.texi

    r12937 r13138  
    914914@item -no-usual-integrations
    915915
    916 Specifies that standard procedures and certain internal procedures may be redefined, and can not be inlined. This is equivalent to declaring @code{(not usual-integrations)}.
     916Specifies that standard procedures and certain internal procedures may be redefined, and cannot be inlined. This is equivalent to declaring @code{(not usual-integrations)}.
    917917@item -version
    918918
     
    12291229@code{csi @{FILENAME|OPTION}@}
    12301230
    1231 where @code{FILENAME} specifies a file with Scheme source-code.  If the extension of the source file is @code{.scm}, it may be omitted. The runtime options described in @uref{http://galinha.ucpel.tche.br/Using%20the%20compiler#Compiler%20command%20line%20format, Compiler command line format} are also available for the interpreter.  If the environment variable @code{CSI_OPTIONS} is set to a list of options, then these options are additionally passed to every direct or indirect invocation of @code{csi}. Please note that runtime options (like @code{-:...}) can not be passed using this method. The options recognized by the interpreter are:
     1231where @code{FILENAME} specifies a file with Scheme source-code.  If the extension of the source file is @code{.scm}, it may be omitted. The runtime options described in @uref{http://galinha.ucpel.tche.br/Using%20the%20compiler#Compiler%20command%20line%20format, Compiler command line format} are also available for the interpreter.  If the environment variable @code{CSI_OPTIONS} is set to a list of options, then these options are additionally passed to every direct or indirect invocation of @code{csi}. Please note that runtime options (like @code{-:...}) cannot be passed using this method. The options recognized by the interpreter are:
    12321232
    12331233@table @b
     
    30173017[declaration specifier] (not interrupts-enabled)
    30183018@end verbatim
    3019 Disable timer-interrupts checks in the compiled program. Threads can not be preempted in main- or library-units that contain this declaration.
     3019Disable timer-interrupts checks in the compiled program. Threads cannot be preempted in main- or library-units that contain this declaration.
    30203020
    30213021@node Declarations - disable-warning, Declarations - import, Declarations - disable-interrupts, Declarations
     
    41684168[procedure] (cpu-time)
    41694169@end verbatim
    4170 Returns the used CPU time of the current process in milliseconds as two values: the time spent in user code, and the time spent in system code. On platforms where user and system time can not be differentiated, system time will be always be 0.
     4170Returns the used CPU time of the current process in milliseconds as two values: the time spent in user code, and the time spent in system code. On platforms where user and system time cannot be differentiated, system time will be always be 0.
    41714171
    41724172@node Unit library - Execution time - current-milliseconds, Unit library - Execution time - current-seconds, Unit library - Execution time - cpu-time, Unit library - Execution time
     
    1356513565% csc -static-extensions my-program.scm -uses my-ext
    1356613566@end verbatim
    13567 The compiler will try to do the right thing, but can not handle all extensions, since the ability to statically link eggs is relatively new. Eggs that support static linking are designated as being able to do so. If you require a statically linkable version of an egg that has not been converted yet, contact the extension author or the CHICKEN  mailing list.
     13567The compiler will try to do the right thing, but cannot handle all extensions, since the ability to statically link eggs is relatively new. Eggs that support static linking are designated as being able to do so. If you require a statically linkable version of an egg that has not been converted yet, contact the extension author or the CHICKEN  mailing list.
    1356813568
    1356913569Previous: @ref{Interface to external functions and variables, Interface to external functions and variables}
     
    1377113771
    1377213772
    13773 @code{case} expands into a cascaded @code{if} expression, where the first item in each arm is treated as a quoted list. So the @code{case} macro can not infer whether a symbol is to be treated as a constant-name (defined via @code{define-constant}) or a literal symbol.
     13773@code{case} expands into a cascaded @code{if} expression, where the first item in each arm is treated as a quoted list. So the @code{case} macro cannot infer whether a symbol is to be treated as a constant-name (defined via @code{define-constant}) or a literal symbol.
    1377413774
    1377513775@node FAQ - General - How can I enable case sensitive reading/writing in user code?, FAQ - General - How can I change match-error-control during compilation?, FAQ - General - Why are constants defined by define-constant not honoured in case constructs?, FAQ - General
     
    1406314063
    1406414064
    14065 Even when the @code{match} unit is not used, the macros from that package are visible in the compiler. The reason for this is that macros can not be accessed from library units (only when explicitly evaluated in running code). To speed up macro-expansion time, the compiler and the interpreter both already provide the compiled  @code{match-...} macro definitions. Macros shadowed lexically are no problem, but global definitions of variables named identically to (global) macros are useless - the macro definition shadows the global variable.
     14065Even when the @code{match} unit is not used, the macros from that package are visible in the compiler. The reason for this is that macros cannot be accessed from library units (only when explicitly evaluated in running code). To speed up macro-expansion time, the compiler and the interpreter both already provide the compiled  @code{match-...} macro definitions. Macros shadowed lexically are no problem, but global definitions of variables named identically to (global) macros are useless - the macro definition shadows the global variable.
    1406614066
    1406714067This problem can be solved using a different name or undefining the macro, like this:
  • chicken/trunk/compiler.scm

    r12956 r13138  
    213213;   call-sites -> ((<lambda-id> <node>) ...) Known call-nodes of a named procedure
    214214;   home -> <lambda-id>                      Procedure which introduces this variable
    215 ;   unknown -> <boolean>                     If true: variable can not have a known value
     215;   unknown -> <boolean>                     If true: variable cannot have a known value
    216216;   assigned -> <boolean>                    If true: variable is assigned somewhere
    217217;   assigned-locally -> <boolean>            If true: variable has been assigned inside user lambda
     
    25892589                                   "coerced inexact literal number `~S' to fixnum ~S" c (inexact->exact c))
    25902590                                  (immediate-literal (inexact->exact c)) )
    2591                                  (else (quit "can not coerce inexact literal `~S' to fixnum" c)) ) )
     2591                                 (else (quit "cannot coerce inexact literal `~S' to fixnum" c)) ) )
    25922592                          (else (make-node '##core#literal (list (literal c)) '())) ) )
    25932593                   ((immediate? c) (immediate-literal c))
  • chicken/trunk/csi.scm

    r12937 r13138  
    435435                   (else
    436436                    (let ((old (##sys#slot s 0)))
    437                       (cond ((not (procedure? old)) (##sys#error "can not trace non-procedure" s))
     437                      (cond ((not (procedure? old)) (##sys#error "cannot trace non-procedure" s))
    438438                            (else
    439439                             (set! traced-procedures (cons (cons s old) traced-procedures))
     
    473473               (set! traced-procedures (del a traced-procedures eq?)) )
    474474             (let ((old (##sys#slot s 0)))
    475                (cond ((not (procedure? old)) (##sys#error "can not set breakpoint on non-procedure" s))
     475               (cond ((not (procedure? old)) (##sys#error "cannot set breakpoint on non-procedure" s))
    476476                     (else
    477477                      (set! broken-procedures (cons (cons s old) broken-procedures))
     
    744744         [out ##sys#standard-output] )
    745745      (define (bestlen n) (if len (min len n) n))
    746       (cond [(##sys#immediate? x) (##sys#error 'dump "can not dump immediate object" x)]
     746      (cond [(##sys#immediate? x) (##sys#error 'dump "cannot dump immediate object" x)]
    747747            [(##sys#bytevector? x) (hexdump x (bestlen (##sys#size x)) ##sys#byte out)]
    748748            [(string? x) (hexdump x (bestlen (##sys#size x)) ##sys#byte out)]
     
    752752             (let ([bv (##sys#slot x 1)])
    753753               (hexdump bv (bestlen (##sys#size bv)) ##sys#byte out) ) ]
    754             [else (##sys#error 'dump "can not dump object" x)] ) ) ) )
     754            [else (##sys#error 'dump "cannot dump object" x)] ) ) ) )
    755755
    756756(define hexdump
  • chicken/trunk/eval.scm

    r12937 r13138  
    739739                                            ##core#foreign-primitive
    740740                                            ##core#foreign-lambda* ##core#define-foreign-type)
    741                           (##sys#syntax-error-hook "can not evaluate compiler-special-form" x) ]
     741                          (##sys#syntax-error-hook "cannot evaluate compiler-special-form" x) ]
    742742
    743743                         [(##core#app)
     
    746746                         [else
    747747                          (cond [(eq? head 'location)
    748                                  (##sys#syntax-error-hook "can not evaluate compiler-special-form" x) ]
     748                                 (##sys#syntax-error-hook "cannot evaluate compiler-special-form" x) ]
    749749
    750750                                [else (compile-call x e tf cntr se)] ) ] ) ) ) ) ]
     
    925925            [evproc (or evaluator eval)] )
    926926        (cond [(and (string? input) (not fname))
    927                (##sys#signal-hook #:file-error 'load "can not open file" input) ]
     927               (##sys#signal-hook #:file-error 'load "cannot open file" input) ]
    928928              [(and (load-verbose) fname)
    929929               (display "; loading ")
     
    11321132                        (set! ##sys#loaded-extensions (cons p ##sys#loaded-extensions))
    11331133                        #t)
    1134                        ((optional err? #t) (##sys#error loc "can not load extension" id))
     1134                       ((optional err? #t) (##sys#error loc "cannot load extension" id))
    11351135                       (else #f) ) ) ) ) ) ) ) )
    11361136
  • chicken/trunk/expand.scm

    r12952 r13138  
    754754                  (else
    755755                   (syntax-error
    756                     loc "can not import from undefined module"
     756                    loc "cannot import from undefined module"
    757757                    mname)))))
    758758        (let ((vexp (module-vexports mod))
     
    14661466          a
    14671467          (##sys#error
    1468            'import "can not find implementation of re-exported syntax"
     1468           'import "cannot find implementation of re-exported syntax"
    14691469           name))))
    14701470  (let* ((sexps
  • chicken/trunk/library.scm

    r13127 r13138  
    13321332        (##sys#signal-hook
    13331333         #:bounds-error 'vector-copy!
    1334          "can not copy vector - count exceeds length" from to n) ) ]
     1334         "cannot copy vector - count exceeds length" from to n) ) ]
    13351335     [else] )
    13361336    (do ([i 0 (fx+ i 1)])
     
    18661866               [(#:append)
    18671867                (if inp
    1868                     (##sys#error loc "can not use append mode with input file")
     1868                    (##sys#error loc "cannot use append mode with input file")
    18691869                    (set! fmode "a") ) ]
    18701870               [else (##sys#error loc "invalid file option" o)] ) ) )
     
    18721872           (unless (##sys#open-file-port port name (##sys#string-append fmode bmode))
    18731873             (##sys#update-errno)
    1874              (##sys#signal-hook #:file-error loc (##sys#string-append "can not open file - " strerror) name) )
     1874             (##sys#signal-hook #:file-error loc (##sys#string-append "cannot open file - " strerror) name) )
    18751875           port) ) )
    18761876     #:open (not inp) modes) )
     
    19701970  (if (##sys#slot port 1)
    19711971      (##sys#values (##sys#slot port 4) (##sys#slot port 5))
    1972       (##sys#error 'port-position "can not compute position of port" port) ) )
     1972      (##sys#error 'port-position "cannot compute position of port" port) ) )
    19731973
    19741974(define (delete-file filename)
     
    19811981       (##sys#signal-hook
    19821982        #:file-error 'delete-file
    1983         (##sys#string-append "can not delete file - " strerror) filename) ) )
     1983        (##sys#string-append "cannot delete file - " strerror) filename) ) )
    19841984   #:delete) )
    19851985
     
    19971997          (##sys#signal-hook
    19981998           #:file-error 'rename-file
    1999            (##sys#string-append "can not rename file - " strerror) old new) ) ) ) )
     1999           (##sys#string-append "cannot rename file - " strerror) old new) ) ) ) )
    20002000   #:rename new) )
    20012001
     
    22992299                    (cond [val
    23002300                           (when (and (##sys#inexact? val) rat-flag)
    2301                              (##sys#read-warning port "can not represent exact fraction - coerced to flonum" tok) )
     2301                             (##sys#read-warning port "cannot represent exact fraction - coerced to flonum" tok) )
    23022302                           val]
    23032303                          [radix (##sys#read-error port "illegal number syntax" tok)]
     
    37543754        ((8) (apply ##sys#signal-hook #:bounds-error loc "out of range" args))
    37553755        ((9) (apply ##sys#signal-hook #:type-error loc "call of non-procedure" args))
    3756         ((10) (apply ##sys#signal-hook #:arity-error loc "continuation can not receive multiple values" args))
     3756        ((10) (apply ##sys#signal-hook #:arity-error loc "continuation cannot receive multiple values" args))
    37573757        ((11) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a non-cyclic list" args))
    37583758        ((12) (apply ##sys#signal-hook #:limit-error loc "recursion too deep" args))
    3759         ((13) (apply ##sys#signal-hook #:type-error loc "inexact number can not be represented as an exact number" args))
     3759        ((13) (apply ##sys#signal-hook #:type-error loc "inexact number cannot be represented as an exact number" args))
    37603760        ((14) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a proper list" args))
    37613761        ((15) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a fixnum" args))
     
    43694369(define (##sys#make-locative obj index weak? loc)
    43704370  (cond [(##sys#immediate? obj)
    4371          (##sys#signal-hook #:type-error loc "locative can not refer to immediate object" obj) ]
     4371         (##sys#signal-hook #:type-error loc "locative cannot refer to immediate object" obj) ]
    43724372        [(or (vector? obj) (pair? obj))
    43734373         (##sys#check-range index 0 (##sys#size obj) loc)
     
    44234423         (##sys#signal-hook
    44244424          #:type-error loc
    4425           "bad argument type - locative can not refer to objects of this type"
     4425          "bad argument type - locative cannot refer to objects of this type"
    44264426          obj) ] ) )
    44274427
  • chicken/trunk/lolevel.scm

    r10788 r13138  
    293293(define (number-of-bytes x)
    294294  (cond [(not (##core#inline "C_blockp" x))
    295          (##sys#signal-hook #:type-error 'number-of-bytes "can not compute number of bytes of immediate object" x) ]
     295         (##sys#signal-hook #:type-error 'number-of-bytes "cannot compute number of bytes of immediate object" x) ]
    296296        [(##core#inline "C_byteblockp" x) (##sys#size x)]
    297297        [else (##core#inline "C_w2b" (##sys#size x))] ) )
     
    414414                               (make-property-condition
    415415                                'exn 'location 'object-evict-to-location
    416                                 'message "can not evict object - limit exceeded"
     416                                'message "cannot evict object - limit exceeded"
    417417                                'arguments (list x limit))
    418418                               (make-property-condition 'evict 'limit limit) ) ) ) )
     
    455455    (lambda (x #!optional (full #f))
    456456      (define (err x)
    457         (##sys#signal-hook #:type-error 'object-unevict "can not copy object" x) )
     457        (##sys#signal-hook #:type-error 'object-unevict "cannot copy object" x) )
    458458      (let ([tab (##sys#make-vector evict-table-size '())])
    459459        (let copy ([x x])
  • chicken/trunk/runtime.c

    r13135 r13138  
    548548 
    549549  if(!CHICKEN_initialize(h, s, n, toplevel))
    550     panic(C_text("can not initialize - out of memory"));
     550    panic(C_text("cannot initialize - out of memory"));
    551551
    552552  CHICKEN_run(NULL);
     
    567567
    568568  if(C_main_argv == NULL)
    569     panic(C_text("can not allocate argument-list buffer"));
     569    panic(C_text("cannot allocate argument-list buffer"));
    570570
    571571  C_main_argc = 0;
     
    583583   
    584584    if(aptr == NULL)
    585       panic(C_text("can not allocate argument buffer"));
     585      panic(C_text("cannot allocate argument buffer"));
    586586
    587587    C_strcpy(aptr, bptr0);
     
    713713  memset(signal_mapping_table, 0, sizeof(int) * NSIG);
    714714  initialize_symbol_table();
    715   C_dlerror = "can not load compiled code dynamically - this is a statically linked executable";
     715  C_dlerror = "cannot load compiled code dynamically - this is a statically linked executable";
    716716  error_location = C_SCHEME_FALSE;
    717717  C_pre_gc_hook = NULL;
     
    735735
    736736  if(pt == NULL)
    737     panic(C_text("out of memory - can not create initial ptable"));
     737    panic(C_text("out of memory - cannot create initial ptable"));
    738738
    739739  C_pte(termination_continuation);
     
    812812
    813813  if(r == NULL)
    814     panic(C_text("out of memory - can not allocate GC root"));
     814    panic(C_text("out of memory - cannot allocate GC root"));
    815815
    816816  r->value = C_SCHEME_UNDEFINED;
     
    10701070                           tospace_limit - tospace_start,
    10711071                           size, &ptr2a)) == NULL)
    1072     panic(C_text("out of memory - can not allocate heap"));
     1072    panic(C_text("out of memory - cannot allocate heap"));
    10731073
    10741074  heapspace1 = ptr1, heapspace1_size = size;
     
    14671467
    14681468  case C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR:
    1469     msg = C_text("continuation can not receive multiple values");
     1469    msg = C_text("continuation cannot receive multiple values");
    14701470    c = 1;
    14711471    break;
     
    14821482
    14831483  case C_CANT_REPRESENT_INEXACT_ERROR:
    1484     msg = C_text("inexact number can not be represented as an exact number");
     1484    msg = C_text("inexact number cannot be represented as an exact number");
    14851485    c = 1;
    14861486    break;
     
    22582258
    22592259  if(dptr == NULL)
    2260     panic(C_text("out of memory - can not allocate static string"));
     2260    panic(C_text("out of memory - cannot allocate static string"));
    22612261   
    22622262  strblock = (C_word)dptr;
     
    22742274
    22752275  if(dptr == NULL)
    2276     panic(C_text("out of memory - can not allocate static lambda info"));
     2276    panic(C_text("out of memory - cannot allocate static lambda info"));
    22772277
    22782278  strblock = (C_word)dptr;
     
    22962296  C_SCHEME_BLOCK *pbv = C_malloc(len + sizeof(C_header));
    22972297
    2298   if(pbv == NULL) panic(C_text("out of memory - can not allocate permanent blob"));
     2298  if(pbv == NULL) panic(C_text("out of memory - cannot allocate permanent blob"));
    22992299
    23002300  pbv->header = C_BYTEVECTOR_TYPE | len;
     
    26252625     
    26262626      if(mutation_stack_bottom == NULL)
    2627         panic(C_text("out of memory - can not re-allocate mutation stack"));
     2627        panic(C_text("out of memory - cannot re-allocate mutation stack"));
    26282628
    26292629      mutation_stack_limit = mutation_stack_bottom + mssize + MUTATION_STACK_GROWTH;
     
    31643164
    31653165  if ((new_heapspace = heap_alloc (size, &new_tospace_start)) == NULL)
    3166     panic(C_text("out of memory - can not allocate heap segment"));
     3166    panic(C_text("out of memory - cannot allocate heap segment"));
    31673167  new_heapspace_size = size;
    31683168
     
    32573257 
    32583258  if ((heapspace2 = heap_alloc (size, &tospace_start)) == NULL)
    3259     panic(C_text("out ot memory - can not allocate heap segment"));
     3259    panic(C_text("out ot memory - cannot allocate heap segment"));
    32603260  heapspace2_size = size;
    32613261
     
    37283728
    37293729  if((result = (char *)C_malloc(STRING_BUFFER_SIZE)) == NULL)
    3730     horror(C_text("out of memory - can not allocate trace-dump buffer"));
     3730    horror(C_text("out of memory - cannot allocate trace-dump buffer"));
    37313731
    37323732  *result = '\0';
     
    37483748      if(C_strlen(result) > STRING_BUFFER_SIZE - 32) {
    37493749        if((result = C_realloc(result, C_strlen(result) * 2)) == NULL)
    3750           horror(C_text("out of memory - can not reallocate trace-dump buffer"));
     3750          horror(C_text("out of memory - cannot reallocate trace-dump buffer"));
    37513751      }
    37523752
     
    37703770
    37713771    if(trace_buffer == NULL)
    3772       panic(C_text("out of memory - can not allocate trace-buffer"));
     3772      panic(C_text("out of memory - cannot allocate trace-buffer"));
    37733773  }
    37743774
     
    73627362    while((C_uword)(C_fromspace_limit - C_fromspace_top) < (bytes + stack_size)) {
    73637363      if(C_heap_size_is_fixed)
    7364         panic(C_text("out of memory - can not allocate vector (heap resizing disabled)"));
     7364        panic(C_text("out of memory - cannot allocate vector (heap resizing disabled)"));
    73657365
    73667366      C_save(init);
     
    84278427  if(finalizer_free_list == NULL) {
    84288428    if((flist = (FINALIZER_NODE *)C_malloc(sizeof(FINALIZER_NODE))) == NULL)
    8429       panic(C_text("out of memory - can not allocate finalizer node"));
     8429      panic(C_text("out of memory - cannot allocate finalizer node"));
    84308430
    84318431    ++allocated_finalizer_count;
     
    85848584     
    85858585      if(tmp == NULL)
    8586         panic(C_text("out of memory - can not allocate toplevel name string"));
     8586        panic(C_text("out of memory - cannot allocate toplevel name string"));
    85878587     
    85888588      C_strcpy(tmp, C_text("_"));
     
    87478747    if(i == 0) {
    87488748      if((forwarding_table = (C_word *)realloc(forwarding_table, (forwarding_table_size + 1) * 4 * sizeof(C_word))) == NULL)
    8749         panic(C_text("out of memory - can not re-allocate forwarding table"));
     8749        panic(C_text("out of memory - cannot re-allocate forwarding table"));
    87508750       
    87518751      i = forwarding_table_size;
     
    88328832
    88338833    if(locative_table == NULL)
    8834       panic(C_text("out of memory - can not resize locative table"));
     8834      panic(C_text("out of memory - cannot resize locative table"));
    88358835
    88368836    locative_table_size *= 2;
     
    89828982
    89838983    if(collectibles == NULL)
    8984       panic(C_text("out of memory - can not allocate GC protection vector"));
     8984      panic(C_text("out of memory - cannot allocate GC protection vector"));
    89858985   
    89868986    collectibles_top = collectibles + k;
     
    92469246
    92479247  if((bits & C_SPECIALBLOCK_BIT) != 0)
    9248     panic(C_text("literals with special bit can not be decoded"));
     9248    panic(C_text("literals with special bit cannot be decoded"));
    92499249
    92509250  size = decode_size(str);
  • chicken/trunk/setup-api.scm

    r12956 r13138  
    143143(define (windows-sudo-install-setup)
    144144  (set! *sudo* #f)
    145   (print "Warning: can not install as superuser with Windows") )
     145  (print "Warning: cannot install as superuser with Windows") )
    146146
    147147(define (unix-sudo-install-setup)
     
    590590    (if (file-exists? dir)
    591591        (unless (directory? dir)
    592           (error "can not create directory: a file with the same name already exists") )
     592          (error "cannot create directory: a file with the same name already exists") )
    593593        (begin
    594594          (create-directory dir)
     
    698698  (cond ((not (file-exists? dir))
    699699         (if strict
    700              (error 'remove-directory "can not remove - directory not found" dir)
     700             (error 'remove-directory "cannot remove - directory not found" dir)
    701701             #f))
    702702        (*sudo*
  • chicken/trunk/setup-download.scm

    r12938 r13138  
    250250        ((http)
    251251         (locate-egg/http name location version destination tests))
    252         (else (error "can not retrieve extension unsupported transport" transport)))) )
     252        (else (error "cannot retrieve extension unsupported transport" transport)))) )
    253253
    254254  (define (list-extensions transport location #!key quiet username password)
     
    259259        ((svn)
    260260         (list-eggs/svn location username password))
    261         (else (error "can not list extensions - unsupported transport" transport)))) )
     261        (else (error "cannot list extensions - unsupported transport" transport)))) )
    262262
    263263)
  • chicken/trunk/srfi-18.scm

    r12937 r13138  
    209209          (##sys#check-structure thread 'thread 'thread-start!) )
    210210      (unless (eq? 'created (##sys#slot thread 3))
    211         (##sys#error 'thread-start! "thread can not be started a second time" thread) )
     211        (##sys#error 'thread-start! "thread cannot be started a second time" thread) )
    212212      (##sys#setslot thread 3 'ready)
    213213      (##sys#add-to-ready-queue thread)
  • chicken/trunk/srfi-4.scm

    r12937 r13138  
    258258              (let ([bv (ext-alloc len)])
    259259                (or bv
    260                     (##sys#error loc "not enough memory - can not allocate external number vector" len)) )
     260                    (##sys#error loc "not enough memory - cannot allocate external number vector" len)) )
    261261              (let ([bv (##sys#allocate-vector len #t #f #t)]) ; this could be made better...
    262262                (##core#inline "C_string_to_bytevector" bv)
  • chicken/trunk/support.scm

    r12948 r13138  
    288288    (lambda (str)
    289289      (handle-exceptions ex
    290           (quit "can not parse expression: ~s [~a]~%"
     290          (quit "cannot parse expression: ~s [~a]~%"
    291291                str
    292292                (if (exn? ex)
     
    10451045(define (estimate-foreign-result-location-size type)
    10461046  (define (err t)
    1047     (quit "can not compute size of location for foreign type `~S'" t) )
     1047    (quit "cannot compute size of location for foreign type `~S'" t) )
    10481048  (follow-without-loop
    10491049   type
  • chicken/trunk/tcp.scm

    r12937 r13138  
    174174
    175175(unless (##net#startup)
    176   (##sys#signal-hook #:network-error "can not initialize Winsock") )
     176  (##sys#signal-hook #:network-error "cannot initialize Winsock") )
    177177
    178178(define ##net#getservbyname
     
    240240                         (##sys#update-errno)
    241241                         (##sys#signal-hook
    242                           #:network-error 'tcp-connect (##sys#string-append "can not compute port from service - " strerror)
     242                          #:network-error 'tcp-connect (##sys#string-append "cannot compute port from service - " strerror)
    243243                          s) )
    244244                       p) )
     
    263263    (when (eq? _invalid_socket s)
    264264      (##sys#update-errno)
    265       (##sys#error "can not create socket") )
     265      (##sys#error "cannot create socket") )
    266266    ;; PLT makes this an optional arg to tcp-listen. Should we as well?
    267267    (when (eq? -1 ((foreign-lambda* int ((int socket))
     
    279279        (when (eq? -1 b)
    280280          (##sys#update-errno)
    281           (##sys#signal-hook #:network-error 'tcp-listen (##sys#string-append "can not bind to socket - " strerror) s port) )
     281          (##sys#signal-hook #:network-error 'tcp-listen (##sys#string-append "cannot bind to socket - " strerror) s port) )
    282282        (values s addr) ) ) ) )
    283283
     
    291291        (when (eq? -1 l)
    292292          (##sys#update-errno)
    293           (##sys#signal-hook #:network-error 'tcp-listen (##sys#string-append "can not listen on socket - " strerror) s port) )
     293          (##sys#signal-hook #:network-error 'tcp-listen (##sys#string-append "cannot listen on socket - " strerror) s port) )
    294294        (##sys#make-structure 'tcp-listener s) ) ) ) )
    295295
     
    303303    (when (fx= -1 (##net#close s))
    304304      (##sys#update-errno)
    305       (##sys#signal-hook #:network-error 'tcp-close (##sys#string-append "can not close TCP socket - " strerror) tcpl) ) ) )
     305      (##sys#signal-hook #:network-error 'tcp-close (##sys#string-append "cannot close TCP socket - " strerror) tcpl) ) ) )
    306306
    307307(define-constant +input-buffer-size+ 1024)
     
    332332      (unless (##net#make-nonblocking fd)
    333333        (##sys#update-errno)
    334         (##sys#signal-hook #:network-error (##sys#string-append "can not create TCP ports - " strerror)) )
     334        (##sys#signal-hook #:network-error (##sys#string-append "cannot create TCP ports - " strerror)) )
    335335      (let* ((buf (make-string +input-buffer-size+))
    336336             (data (vector fd #f #f))
     
    364364                                  (##sys#signal-hook
    365365                                   #:network-error
    366                                    (##sys#string-append "can not read from socket - " strerror)
     366                                   (##sys#string-append "cannot read from socket - " strerror)
    367367                                   fd) ) ) )
    368368                          (else
     
    386386                         (##sys#signal-hook
    387387                          #:network-error
    388                           (##sys#string-append "can not check socket for input - " strerror)
     388                          (##sys#string-append "cannot check socket for input - " strerror)
    389389                          fd) )
    390390                       (eq? f 1) ) ) )
     
    397397                     (##sys#signal-hook
    398398                      #:network-error
    399                       (##sys#string-append "can not close socket input port - " strerror)
     399                      (##sys#string-append "cannot close socket input port - " strerror)
    400400                      fd) ) ) )
    401401               #f
     
    461461                                  (##sys#signal-hook
    462462                                   #:network-error
    463                                    (##sys#string-append "can not write to socket - " strerror)
     463                                   (##sys#string-append "cannot write to socket - " strerror)
    464464                                   fd) ) ) )
    465465                          ((fx< n len)
     
    486486                     (##sys#update-errno)
    487487                     (##sys#signal-hook
    488                       #:network-error (##sys#string-append "can not close socket output port - " strerror) fd) ) ) )
     488                      #:network-error (##sys#string-append "cannot close socket output port - " strerror) fd) ) ) )
    489489               (and outbuf
    490490                    (lambda ()
     
    533533      (##sys#update-errno)
    534534      (##sys#signal-hook
    535        #:network-error 'tcp-accept-ready? (##sys#string-append "can not check socket for input - " strerror)
     535       #:network-error 'tcp-accept-ready? (##sys#string-append "cannot check socket for input - " strerror)
    536536       tcpl) )
    537537    (eq? 1 f) ) )
     
    561561        (##sys#update-errno)
    562562        (##sys#signal-hook
    563          #:network-error 'tcp-connect (##sys#string-append "can not connect to socket - " strerror)
     563         #:network-error 'tcp-connect (##sys#string-append "cannot connect to socket - " strerror)
    564564         host port) )
    565565      (when (eq? -1 s)
    566566        (##sys#update-errno)
    567         (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "can not create socket - " strerror) host port) )
     567        (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "cannot create socket - " strerror) host port) )
    568568      (unless (##net#gethostaddr addr host port)
    569         (##sys#signal-hook #:network-error 'tcp-connect "can not find host address" host) )
     569        (##sys#signal-hook #:network-error 'tcp-connect "cannot find host address" host) )
    570570      (unless (##net#make-nonblocking s)
    571571        (##sys#update-errno)
     
    594594               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "getsockopt() failed - " strerror)))
    595595              ((> err 0)
    596                (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "can not create socket - " (general-strerror err))))))
     596               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "cannot create socket - " (general-strerror err))))))
    597597      (##net#io-ports s) ) ) )
    598598
     
    608608    (values
    609609     (or (##net#getsockname fd)
    610          (##sys#signal-hook #:network-error 'tcp-addresses (##sys#string-append "can not compute local address - " strerror) p) )
     610         (##sys#signal-hook #:network-error 'tcp-addresses (##sys#string-append "cannot compute local address - " strerror) p) )
    611611     (or (##net#getpeername fd)
    612          (##sys#signal-hook #:network-error 'tcp-addresses (##sys#string-append "can not compute remote address - " strerror) p) ) ) ) )
     612         (##sys#signal-hook #:network-error 'tcp-addresses (##sys#string-append "cannot compute remote address - " strerror) p) ) ) ) )
    613613
    614614(define (tcp-port-numbers p)
     
    617617    (values
    618618     (or (##net#getsockport fd)
    619          (##sys#signal-hook #:network-error 'tcp-port-numbers (##sys#string-append "can not compute local port - " strerror) p) )
     619         (##sys#signal-hook #:network-error 'tcp-port-numbers (##sys#string-append "cannot compute local port - " strerror) p) )
    620620     (or (##net#getpeerport fd)
    621          (##sys#signal-hook #:network-error 'tcp-port-numbers (##sys#string-append "can not compute remote port - " strerror) p) ) ) ) )
     621         (##sys#signal-hook #:network-error 'tcp-port-numbers (##sys#string-append "cannot compute remote port - " strerror) p) ) ) ) )
    622622
    623623(define (tcp-listener-port tcpl)
     
    627627    (when (eq? -1 port)
    628628      (##sys#signal-hook
    629        #:network-error 'tcp-listener-port (##sys#string-append "can not obtain listener port - " strerror)
     629       #:network-error 'tcp-listener-port (##sys#string-append "cannot obtain listener port - " strerror)
    630630       tcpl fd) )
    631631    port) )
Note: See TracChangeset for help on using the changeset viewer.