Welcome to the CHICKEN Scheme pasting service

this still segfaults, even with the thread-sleep added by jcob on Mon Nov 6 21:01:10 2017

(use jsetroot)

(define home (get-environment-variable "HOME"))

(define framedir (string-append home "/.stumpwm.d/data/frames/"))

(define frames
  (let for ((i 21) (acc '()))
	     (if (>= i 1)
		 (for (- i 1) (cons (string-append framedir (number->string i) ".png") acc))
		 acc)))

(define frameprocs
  (map (lambda (frame) (lambda () (set-background-image! frame))) frames))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `foreign-declare'?
Visually impaired? Let me spell it for you (wav file) download WAV