From eaa57fdc7b3ac79cae4dbebd7492fa58afc99338 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 16 Dec 2022 20:35:54 -0500
Subject: minor cleanup

---
 lib/c.tcl | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'lib')

diff --git a/lib/c.tcl b/lib/c.tcl
index e9e74d9d..cab98f4c 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -186,20 +186,3 @@ namespace eval c {
     namespace export *
     namespace ensemble create
 }
-
-# FIXME: legacy critcl stuff below:
-
-if {![info exists ::livecprocs]} {set ::livecprocs [dict create]}
-proc livecproc {name args} {
-    if {[dict exists $::livecprocs $name $args]} {
-        # promote this proc
-        dict set ::livecprocs $name [dict create $args [dict get $::livecprocs $name $args]]
-    } else { ;# compile
-        critcl::cproc $name$::stepCount {*}$args
-        dict set ::livecprocs $name $args $name$::stepCount
-    }
-    proc $name {args} {
-        set name [lindex [info level 0] 0]
-        [lindex [dict values [dict get $::livecprocs $name]] end] {*}$args
-    }
-}
-- 
cgit v1.2.3