я немного ошибся с аппендом, но принцип понятен, я думаю

ага

ну тут вопрос можно ли сделать

(let ((x (make-funny 10)))
  (print ((x 20)))
  (print ((x 30))))

но да, это одна и та же лямбда, вызванная дважды, и возвращает две новых разных лямбды

(define (make-funny . initial-args)
  (let ((store initial-args))
    (lambda args
      (if (null? args)
          store
          (apply make-funny (append store args))))))

я дико извиняюсь, а зачем там let?

а хз, захотелось)

просто накидал пример спинным мозгом, let не нужен

точно

(define (make-funny . initial-args)
  (let ((store initial-args))
    (lambda args
      (if (null? args)
          store
          (apply make-funny (append store args))))))

поедатель аргументов

Наскриптовал звуки прыжков

Код здесь https://github.com/iZarif/c2scm/blob/master/c2scm/init.scm

При прыжках и прочих физических действиях вызывается коллбэк c2-on-physics-trigger конкретно в данном случае проверяются два факта:
1) Действие сделал игрок
2) Игрок прыгнул

Затем проигрывается (с помощью функции c2-play-sound) один из 4 (выбирается псевдослучайно) звуков прыжка.

P.S  Обнаружил неприятную багу мой форк tinyscheme иногда сегфолтит (бага плавающая).

P.S.S Я наверное уже надоел с этой игротемой но это хоть какой-то околосхемный движ)

это тот кваковый движок? :)

Нет, это https://sourceforge.net/projects/sauerbraten/

Крутяк)

О, я в куб2 шаро*бился одно время, там весело было.

Сорре за оффтопик, кто знает есть ли способы "дебажить bash" кроме set -x?

set -e туда же можно

У ksh есть дебаггер, про баш не знаю

ок, ksh вряд-ли когда-то появится на нашем убогом кластере