[Bug-apl] prompting

[Bill Daly]

I'm sending thee a workspace created after I encountered an error in 
function prompt.  I've also included a log of how I encountered the error.

The next to last command, ⍞←wp∆txt∆assemble invpr displays a report.  
All of the heading data except the time stamp were input using the 
function call: invpr←wp∆init 'Target'.  The following lines show that 
interactive session, including the line: Title of workpaper     Target 
Investments

The report shows the first letter was some how dropped.  My debugging 
has shown that this occurs in the function prompt:

∇resp←prompt pr;test;sink;ans
 ⍝ Subroutine to prompt for user input.
   sink←⍞←pr
   ans←⍞
   test←(∧\ans≠' ')/ans
   →(utl∆numberp test←prompt∆keys ans)/kw
   resp←ans
   →0
 kw:
   resp←test
   →0
∇

After executing line 3 having executed: prompt  'Title of workpaper     
', ans was 'arget Investments'.


I am as always

Confused In Langhorne

prompt_errors.xml
Description: XML document

invpr.log
Description: Text Data