From 6c476966de617b405b9204ff8e5de04fded79f1a Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 10 Nov 2011 21:18:47 +0000
Subject: fix tclpd.lib usage

svn path=/trunk/externals/tclfile/; revision=15716
---
 exists.tcl | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'exists.tcl')

diff --git a/exists.tcl b/exists.tcl
index c927ac6..a74aa84 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -11,25 +11,18 @@ proc+ exists::constructor {self args} {
 
 proc+ exists::0_symbol {self args} {
     # HOT inlet
-    set @filename [lindex {*}$args 1]
-    exists::0_bang $self
-}
-
-proc+ exists::0_anything {self args} {
-    # HOT inlet
-    set @filename [lindex {*}$args 1]
-    pd::post "anything: $@filename"
+    set @filename [pd::arg 0 symbol]
     exists::0_bang $self
 }
 
 proc+ exists::0_bang {self} {
     if {$@filename == {}} return
-    pd::outlet $self 0 [list float [file exists $@filename]]
+    pd::outlet $self 0 float [file exists $@filename]
 }
 
 proc+ exists::1_anything {self args} {
     # COLD inlet
-    set @filename [lindex {*}$args 1]
+    set @filename [pd::arg 0 symbol]
 }
 
 pd::class exists
-- 
cgit v1.2.1