minor cleanup

1 files changed, 0 insertions, 17 deletions

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
-    }
-}