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:
                            
 ______ _ _ __  _   ___   __
|_  / _` | '_ \| | | \ \ / /
 / / (_| | |_) | |_| |\ V / 
/___\__,_| .__/ \__, | \_/  
         |_|    |___/       
Visually impaired? Let me spell it for you (wav file) download WAV