videolang / interactive-syntax Goto Github PK

What does this mean? Is it because the file is read-only (I already removed the read-only setting)?

Apologies - this was poorly logged originally

I get this error when I attempt to run any of the tests, starting with tests/example.rkt

Kind regards,

Stephen

The '#:result' doesn't look right? I can't find it in the reference for for/fold

editor/stdlib.rkt:346:4

http://docs.racket-lang.org/reference/for.html?q=for%2Ffold#%28form._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._for%2Ffold%29%29

(for/fold ([accum-id init-expr] ...) (for-clause ...) body-or-break ... body)

Welcome to DrRacket, version 6.11 [3m].

Language: racket/base, with debugging; memory limit: 128 MB.
. ../editor/stdlib.rkt:346:4: for/fold/derived: bad syntax in: (for/fold/derived (for/fold ((res (quote ())) (w 0) (h 0) (x (+ l sx)) (y (+ t sy)) #:result (values (reverse res) (max sw (+ w l r)) (max sh (+ h t b)) l t r b)) ((i (in-list editor-list))) (cond ((and stretchable? (is-a? i stretchable<$>)) (define-values (w* h*) (send (car i) get-max-extent x y)) (values (cons (list w* h*) res) (x-extent w w*) (y-extent h h*) (x-draw x w*) (y-draw y h*))) (else (define-values (w* h* l t r b) (send (car i) get-extent x y)) (values (cons (list w* h* l t r b) res) (x-extent w w*) (y-extent h h*) (x-draw x w*) (y-draw y h*))))) ((res (quote ())) (w 0) (h 0) (x (+ l sx)) (y (+ t sy)) #:result (values (reverse res) (max sw (+ w l r)) (max sh (+ h t b)) l t r b)) ((i (in-list editor-list))) (cond ((and stretchable? (is-a? i stretchable<$>)) (define-values (w* h*) (send (car i) get-max-extent x y)) (values (cons (list w* h*) res) (x-extent w w*) (y-extent h h*) (x-draw x w*) (y-draw y h*))) (else (define-values (w* h* l t r b) (send (car i) get-extent x y)) (values (cons (list w* h* l t r b) res) (x-extent w w*) (y-extent h h*) (x-draw x w*) (y-draw y h*)))))