Changeset 29886 in project


Ignore:
Timestamp:
10/09/13 23:56:14 (8 years ago)
Author:
felix winkelmann
Message:

spock 0.092: corrected cps-conversion of conditionals to avoid code-explosion; console-log-support for node.js and improvement in string->number by Alexander Shendi

Location:
release/4/spock
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/spock/tags/0.092/core.scm

    r22939 r29886  
    228228                       ,(callk k (lambda () '(%void))))))))
    229229        (('if x y z)
    230          (if (simple? x)
    231              (bindk
    232               k
    233               (lambda (k)               ; Cif
     230         (bindk
     231          k
     232          (lambda (k)           ; Cif
     233            (if (simple? x)
    234234                `(if ,(two x)
    235235                     ,(one y k)
    236                      ,(one z k))))
    237              (let ((t (temp)))          ; Chead
    238                (one x `(lambda (,t)
    239                          (if ,t
    240                              ,(one y k)
    241                              ,(one z k)))))))
     236                     ,(one z k))
     237                (let ((t (temp)))               ; Chead
     238                  (one x `(lambda (,t)
     239                            (if ,t
     240                                ,(one y k)
     241                                ,(one z k)))))))))
    242242        (('%loop llist x) `(%loop ,llist ,(one x k)))
    243243        (('%continue args ...)
  • release/4/spock/tags/0.092/spock.setup

    r28995 r29886  
    7373 '("spock.so" "spock" "spock.import.so"
    7474   "spock-compiler.so" "spock-compiler.import.so")
    75  '((version 0.091)))
     75 '((version 0.092)))
    7676
    7777(install-program
    7878 'chicken-spock
    7979 (list executable)
    80  '((version 0.091)))
     80 '((version 0.092)))
  • release/4/spock/tags/0.092/spock/library.scm

    r27390 r29886  
    11231123           " case 2: tr = /^[0-1]+$/; break;"
    11241124           " case 8: tr = /^[0-7]+$/; break;"
    1125            " case 10: tr = /^[#0-9]*\\.?[#0-9]+([esdfl][0-9]+)?$/; break;"
     1125           " case 10: tr = /^[#0-9]*\\.?[#0-9]+([esdfl][-+]?[0-9]+)?$/; break;"
    11261126           " case 16: tr = /^[0-9a-fA-F]+$/;}"
    11271127           " if(tr && !s.match(tr)) return false;"
  • release/4/spock/trunk/core.scm

    r22939 r29886  
    228228                       ,(callk k (lambda () '(%void))))))))
    229229        (('if x y z)
    230          (if (simple? x)
    231              (bindk
    232               k
    233               (lambda (k)               ; Cif
     230         (bindk
     231          k
     232          (lambda (k)           ; Cif
     233            (if (simple? x)
    234234                `(if ,(two x)
    235235                     ,(one y k)
    236                      ,(one z k))))
    237              (let ((t (temp)))          ; Chead
    238                (one x `(lambda (,t)
    239                          (if ,t
    240                              ,(one y k)
    241                              ,(one z k)))))))
     236                     ,(one z k))
     237                (let ((t (temp)))               ; Chead
     238                  (one x `(lambda (,t)
     239                            (if ,t
     240                                ,(one y k)
     241                                ,(one z k)))))))))
    242242        (('%loop llist x) `(%loop ,llist ,(one x k)))
    243243        (('%continue args ...)
  • release/4/spock/trunk/spock.setup

    r28995 r29886  
    7373 '("spock.so" "spock" "spock.import.so"
    7474   "spock-compiler.so" "spock-compiler.import.so")
    75  '((version 0.091)))
     75 '((version 0.092)))
    7676
    7777(install-program
    7878 'chicken-spock
    7979 (list executable)
    80  '((version 0.091)))
     80 '((version 0.092)))
  • release/4/spock/trunk/spock/library.scm

    r27390 r29886  
    11231123           " case 2: tr = /^[0-1]+$/; break;"
    11241124           " case 8: tr = /^[0-7]+$/; break;"
    1125            " case 10: tr = /^[#0-9]*\\.?[#0-9]+([esdfl][0-9]+)?$/; break;"
     1125           " case 10: tr = /^[#0-9]*\\.?[#0-9]+([esdfl][-+]?[0-9]+)?$/; break;"
    11261126           " case 16: tr = /^[0-9a-fA-F]+$/;}"
    11271127           " if(tr && !s.match(tr)) return false;"
Note: See TracChangeset for help on using the changeset viewer.