"Syntax error (:): invalid type syntax" when compiling with CHICKEN 4.8
Hi, Long time user LISP and Scheme but not Chicken! I am trying to start a project with it and SDL2 but I cannot get any further with it.
I will also be trying to "follow the pattern" and add in the TTF support as well, I wrote a GNU prolog binding to SDL2 a while back so I know the form but again, not with Chicken.
Any help would be appreciated, and I will certainly be giving stuff back. I as blown away by finding a scheme that supports SDL2 as well is this seems to.
I have pasted the full build output after this message, thanks again.
All the best, Sean.
╭─seancharles@Seans-iMac.local ~/Downloads/chicken-sdl2-image ‹master› ╰─➤ SDL2_FLAGS=`sdl2-config --cflags --libs` sudo chicken-install retrieving ... checking platform for `sdl2-image' ... checking dependencies for `sdl2-image' ... install order: ("sdl2-image") installing sdl2-image: ... changing current directory to . /opt/local/bin/csi -bnq -setup-mode -e "(require-library setup-api)" -e "(import setup-api)" -e "(setup-error-handling)" -e "(extension-name-and-version '(\"sdl2-image\" \"\"))" sdl2-image.setup COMPILING MODULE: sdl2-image /opt/local/bin/csc -feature compiling-extension -setup-mode -J -v -s -O3 -d1 -I/opt/local/include/SDL2 -D_THREAD_SAFE -L/opt/local/lib -lSDL2 -lSDL2_image -emit-type-file sdl2-image.types sdl2-image.scm /opt/local/bin/chicken sdl2-image.scm -output-file sdl2-image.c -dynamic -feature chicken-compile-shared -feature compiling-extension -setup-mode -emit-all-import-libraries -verbose -optimize-level 3 -debug-level 1 -feature _THREAD_SAFE -emit-type-file sdl2-image.types Syntax error (:): invalid type syntax load (string -> (or (struct sdl2:surface) false)) Expansion history: <syntax> (foreign-getter major-out minor-out patch-out) <syntax> (list (pointer-u8-ref major-out) (pointer-u8-ref minor-out) (pointer-u8-ref patch-out)) <syntax> (pointer-u8-ref major-out) <syntax> (pointer-u8-ref minor-out) <syntax> (pointer-u8-ref patch-out) <syntax> (##core#lambda result-values201 (free203 major-out) (free203 minor-out) (free203 patch-out) (apply20...... <syntax> (##core#begin (free203 major-out) (free203 minor-out) (free203 patch-out) (apply204 values205 result...... <syntax> (free203 major-out) <syntax> (free203 minor-out) <syntax> (free203 patch-out) <syntax> (apply204 values205 result-values201) <syntax> (define-inline (%maybe-surface surf) (if (and (surface? surf) (not (struct-null? surf))) surf #f)) <syntax> (##core#define-inline %maybe-surface (##core#lambda (surf) (if (and (surface? surf) (not (struct-nul...... <syntax> (define-inline (%maybe-manage-surface surf) (if surf (set-finalizer! surf free-surface!) surf)) <syntax> (##core#define-inline %maybe-manage-surface (##core#lambda (surf) (if surf (set-finalizer! surf free...... <syntax> (: load (string -> (or (struct sdl2:surface) false))) <--