Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
26 January 2024, 08:32:23 UTC
Revision 396c8f2fa6077e7c4b8b55683916aca734da6daa authored by Joshua J. Cogliati on 28 November 2019, 22:54:47 UTC, committed by Joshua J. Cogliati on 29 November 2019, 01:56:21 UTC 
Removing old wxWidgets 2.6 ifdefs and idndefing Blit that doesn't work in mac
1 parent 2cdc440
Raw File
Tip revision: 396c8f2fa6077e7c4b8b55683916aca734da6daa authored by Joshua J. Cogliati on 28 November 2019, 22:54:47 UTC
Removing old wxWidgets 2.6 ifdefs and idndefing Blit that doesn't work in mac
Tip revision: 396c8f2
filter 
;;; -*- logo -*-

to filter :filter.template :template.list [:template.number 1] ~
          [:template.lists (list :template.list)]
if emptyp :template.list [op :template.list]
if apply :filter.template (list first :template.list) ~
   [op combine (first :template.list) ~
               (filter :filter.template bf :template.list :template.number+1)]
op (filter :filter.template bf :template.list :template.number+1)
end

to ?rest [:which 1]
output bf item :which :template.lists
end

bury [filter ?rest]
back to top