Changeset 13858 in project for chicken


Ignore:
Timestamp:
03/22/09 01:00:31 (11 years ago)
Author:
felix winkelmann
Message:

paren-synonyms should always be terminating

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/batch-driver.scm

    r13713 r13858  
    287287      (symbol-escape #f) )
    288288    (when (memq '("-r5rs-syntax") options)
    289       (unless quiet (display "Disabled the Chicken extensions to R5RS syntax\n"))
    290         (case-sensitive #f)
    291         (keyword-style #:none)
    292         (parentheses-synonyms #f)
    293         (symbol-escape #f) )
     289      (dribble "Disabled the Chicken extensions to R5RS syntax")
     290      (case-sensitive #f)
     291      (keyword-style #:none)
     292      (parentheses-synonyms #f)
     293      (symbol-escape #f) )
    294294    (set! verbose-mode verbose)
    295295    (set! ##sys#read-error-with-line-number #t)
  • chicken/trunk/library.scm

    r13694 r13858  
    21592159            [rat-flag #f]
    21602160            ; set below - needs more state to make a decision
    2161             [terminating-characters #f]
     2161            (terminating-characters '(#\, #\; #\( #\) #\' #\" #\[ #\] #\{ #\}))
    21622162            [reserved-characters #f] )
    21632163
     
    24922492
    24932493          ; now have the state to make a decision.
    2494           (set! terminating-characters
    2495                 (if psp
    2496                     '(#\, #\; #\( #\) #\' #\" #\[ #\] #\{ #\})
    2497                     '(#\, #\; #\( #\) #\' #\")))
    24982494          (set! reserved-characters
    24992495                (if psp
     
    26202616                   (cond [(eof-object? c) c]
    26212617                         [(char-numeric? c) (r-number #f)]
    2622                          [else
    2623                           (if (memq c reserved-characters)
    2624                               (reserved-character c)
    2625                               (case c
    2626                                 ((#\[ #;#\]) (r-list #\[ #\]))
    2627                                 ((#\{ #;#\}) (r-list #\{ #\}))
    2628                                 ((#;#\[ #\] #;#\{ #\}) (##sys#read-char-0 port) (container c))
    2629                                 (else (r-symbol) ) ) ) ] ) ) ) ) ) )
    2630 
     2618                         ((memq c reserved-characters)
     2619                          (reserved-character c))
     2620                         (else
     2621                          (case c
     2622                            ((#\[ #;#\]) (r-list #\[ #\]))
     2623                            ((#\{ #;#\}) (r-list #\{ #\}))
     2624                            ((#;#\[ #\] #;#\{ #\}) (##sys#read-char-0 port) (container c))
     2625                            (else (r-symbol) ) ) ) ) ) ) ) ) )
     2626       
    26312627        (readrec) ) ) ) )
    26322628
  • chicken/trunk/rules.make

    r13820 r13858  
    13161316        LD_LIBRARY_PATH=$$here DYLD_LIBRARY_PATH=$$here PATH=$$here:$$PATH \
    13171317        csi -s cscbench.scm $(BENCHMARK_OPTIONS)
    1318 
    1319 # create HTML from manual
Note: See TracChangeset for help on using the changeset viewer.