experiment.scm

(use-modules (srfi srfi-1))

(define (camera-layout)
  '((matrix #:mat4)))

(define (camera property)
  (find (lambda (record) (eq? (car record) property)) (camera-layout)))

(define (model-layout)
  '((position #:vec3 #:vertex)
    (matrix #:mat4)
    (clip-space (* (camera 'matrix) (model 'matrix) (model 'position)))))

(define (model property)
  (find (lambda (record) (eq? (car record) property)) (model-layout)))

(define (records) '(camera model))

(define (record? symbol)
  (let ([found (find (lambda (name) (eq? name symbol)) (records))])
    (cond
     [found #t]
     [else #f])))

(define (solve thing)
  (cond
   [(eq? thing '()) '()]
   [(and (list? thing) (record? (car thing))) (eval thing (interaction-environment))]
   [(list? thing) (cons (solve (car thing)) (solve (cdr thing)))]
   [else thing]))