Skip to main content

Browse the archive

https://github.com/jrincayc/ucblogo-code
26 January 2024, 08:32:23 UTC
Revision ad2aafdb76721bf7ee061407f6a92e005841f163 authored by Joshua Cogliati on 28 June 2022, 01:19:29 UTC, committed by GitHub on 28 June 2022, 01:19:29 UTC 
Merge pull request #135 from dmalec/ISSUE-134
 
ISSUE-134: Fixed issue with LOADPICT if it's called before other turtle commands
2 parent s 7301609 + 3504376
Raw File
Tip revision: ad2aafdb76721bf7ee061407f6a92e005841f163 authored by Joshua Cogliati on 28 June 2022, 01:19:29 UTC
Merge pull request #135 from dmalec/ISSUE-134
Tip revision: ad2aafd
crossmap 
;;; -*- logo -*-

to crossmap :cm.template [:cm.lists] 2
if emptyp bf :cm.lists [op cm1 first :cm.lists 1 []]
op cm1 :cm.lists 1 []
end

to cm1 :cm.lists :cm.level :template.vars
if emptyp :cm.lists [op (list apply :cm.template :template.vars)]
op cm2 first :cm.lists
end

to cm2 :cm.thislist
if emptyp :cm.thislist [op []]
local :cm.level
make :cm.level first :cm.thislist
op se (cm1 bf :cm.lists :cm.level+1 lput first :cm.thislist :template.vars) ~
      (cm2 bf :cm.thislist)
end

bury [crossmap cm1 cm2]
back to top