Posted to tcl by qih at Thu Jan 04 08:10:44 GMT 2018view pretty

# Code from program:

53 set lines {
54     puts "blah blah? >> "; flush stdout
55     gets stdin blah_in
56     puts "Blob blob? >> "; flush stdout
57     gets stdin blob_in
58 }
59 
60 struct::matrix m 
61 m add columns 3
62 foreach line $lines {
63     m add row $lines;
64 } 
65 m format 2chan; # Print it out

# Error from terminal:

qih proj003 $ tclsh medtrack.tcl 

Welcome, today's date is Thursday, 01/04/2018
-------------------------------------------------------

Are you adding a new medication? (Yes or No) Yes

Please answer the following questions:
--------------------------------------
list element in quotes followed by ";" instead of space
    while executing
"foreach line $lines {
    m add row $lines;
}"
    (file "medtrack.tcl" line 62)