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
iseq 
;;; -*- logo -*-

to iseq :a :b
if not (:a > :b) [output iseq1 :a :b]
output map [[x] -1 * :x] iseq1 (-1 * :a) (-1 * :b)
end

to iseq1 :a :b
if :a > :b [output []]
output fput :a iseq1 :a + 1 :b
end

bury [iseq iseq1]
back to top