start | all-pages
 gc
                                                                  
Data Stack:    q-                                                
Address Stack: -                                                 
                                                                 
Run the provided quotation. This saves the value of +Free        
and restores in when the quotation returns. It's basically       
a lightweight form of garbage collection.                        
                                                                 
Example:                                                         
                                                                 
  here n:put nl  [ #100 allot here n:put nl ] gc  here n:put nl  
                                                                 
                                                                 
Type:          word                                              
Defined In:    rom