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)