[MEGOLDVA] LISP (GIMP Scheme interpreter), Error: illegal function

 ( eCaffee | 2016. február 25., csütörtök - 2:35 )

Van egy kis gondom, hátha valaki tudja a megoldást, mert én már a fától nem látom az erdőt... :)
A program lefut, teszi amit kell, de a fenti hibát dobja a végén.
A problémás kódrészlet:

(define...
...
...

(let* (
(greyvalue 0)
)
(set! greyvalue (cadr (gimp-drawable-get-pixel (car (gimp-image-get-active-layer image)) 0 0)))
(if (< (aref greyvalue 3) 127)
(
(gimp-image-remove-layer image (car (gimp-image-get-active-layer image)))
)
(
(gimp-image-remove-layer image (car (gimp-image-get-active-layer image)))
(gimp-invert (car (gimp-image-get-active-layer image)))
)
)

(gimp-equalize (car (gimp-image-get-active-layer image)) TRUE)

(gimp-context-pop)

(gimp-image-undo-group-end image)

(gimp-displays-flush)
)
)

Megoldás:

(if (feltételek)

(begin
(then-funkciók)
)

(begin
(else-funkciók)
)
)

Hozzászólás megjelenítési lehetőségek

A választott hozzászólás megjelenítési mód a „Beállítás” gombbal rögzíthető.

nem ertek hozza, valaki magyarazza el, de az if elott miert van ((?

Véletlenül duplán zárójeleztem az if-et, de már kijavítottam. A hiba ugyanúgy fennáll.
A gimp-displays-flush már nem fut le a végén, de a műveleteket mindet elvégzi.
-
"Attempting to break SpeedLock can damage your sanity"