Changeset 31158 in project


Ignore:
Timestamp:
07/29/14 15:09:19 (5 years ago)
Author:
felix winkelmann
Message:

spock 0.096: bugfixes in cadXXr, reported by Hugo Arregui

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

Legend:

Unmodified
Added
Removed
  • release/4/spock/tags/0.096/spock.setup

    r30792 r31158  
    7373 '("spock.so" "spock" "spock.import.so"
    7474   "spock-compiler.so" "spock-compiler.import.so")
    75  '((version 0.095)))
     75 '((version 0.096)))
    7676
    7777(install-program
    7878 'chicken-spock
    7979 (list executable)
    80  '((version 0.095)))
     80 '((version 0.096)))
  • release/4/spock/tags/0.096/spock/library.scm

    r29909 r31158  
    175175        (define (caaddr x) (car (car (cdr (cdr x)))))
    176176        (define (cadaar x) (car (cdr (car (car x)))))
    177         (define (cadadr x) (car (car (car (cdr x)))))
    178         (define (caddar x) (car (car (cdr (car x)))))
    179         (define (cadddr x) (car (car (cdr (cdr x)))))
     177        (define (cadadr x) (car (cdr (car (cdr x)))))
     178        (define (caddar x) (car (cdr (cdr (car x)))))
     179        (define (cadddr x) (car (cdr (cdr (cdr x)))))
    180180        (define (cdaaar x) (cdr (car (car (car x)))))
    181181        (define (cdaadr x) (cdr (car (car (cdr x)))))
  • release/4/spock/trunk/spock.setup

    r30792 r31158  
    7373 '("spock.so" "spock" "spock.import.so"
    7474   "spock-compiler.so" "spock-compiler.import.so")
    75  '((version 0.095)))
     75 '((version 0.096)))
    7676
    7777(install-program
    7878 'chicken-spock
    7979 (list executable)
    80  '((version 0.095)))
     80 '((version 0.096)))
  • release/4/spock/trunk/spock/library.scm

    r29909 r31158  
    175175        (define (caaddr x) (car (car (cdr (cdr x)))))
    176176        (define (cadaar x) (car (cdr (car (car x)))))
    177         (define (cadadr x) (car (car (car (cdr x)))))
    178         (define (caddar x) (car (car (cdr (car x)))))
    179         (define (cadddr x) (car (car (cdr (cdr x)))))
     177        (define (cadadr x) (car (cdr (car (cdr x)))))
     178        (define (caddar x) (car (cdr (cdr (car x)))))
     179        (define (cadddr x) (car (cdr (cdr (cdr x)))))
    180180        (define (cdaaar x) (cdr (car (car (car x)))))
    181181        (define (cdaadr x) (cdr (car (car (cdr x)))))
Note: See TracChangeset for help on using the changeset viewer.