Welcome to the CHICKEN Scheme pasting service

with gc root added by matijja on Mon Feb 4 19:12:44 2019

(bind "
void* CHICKEN_new_gc_root();
void CHICKEN_gc_root_set(void *root, C_word value);
C_word CHICKEN_gc_root_ref(void *root);
void CHICKEN_delete_gc_root (void *root);
")

(define handler (CHICKEN_new_gc_root))
(let ((window (gtk_window_new GTK_WINDOW_TOPLEVEL)))
  (CHICKEN_gc_root_set handler on_quit)
  (gtk_widget_show window)
  (g_signal_connect_data window "destroy" (CHICKEN_gc_root_ref handler) #f #f 0)
  ((foreign-safe-lambda void gtk_main)))
(CHICKEN_delete_gc_root handler)

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Type in the text below:
                      _          
 _   _ _ ____  ____ _(_) ___ ___ 
| | | | '__\ \/ / _` | |/ __/ __|
| |_| | |   >  < (_| | | (__\__ \
 \__,_|_|  /_/\_\__, |_|\___|___/
                   |_|           
Visually impaired? Let me spell it for you (wav file) download WAV