From 225ac18450830ff130e2d14a1bbceebb758a399d Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Mon, 7 Jul 2008 20:02:51 +0000
Subject: more tcl cleanup.

git-svn-id: svn://svn.berlios.de/openocd/trunk@768 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/commands.tcl | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/tcl')

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index a272c134..a2cf0812 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,9 +1,4 @@
 
-# implements Tcl procedures/functions
-proc peek {address} {
-	return [openocd_throw "mdw $address"]
-}
-
 # Production command
 # FIX!!! need to figure out how to feed back relevant output
 # from e.g. "flash banks" command...
-- 
cgit v1.2.3