[plt-scheme] Please help : How do i add contents from user to auser defined list

I assume this is not homework. (If it is, this solution probably is not 
acceptable)

(define (communicate msg) (display msg) (read))

(for/list
 ((i
   (in-range 0
    (begin
     (communicate "Please enter the number of modules taken in the 
semester:\n")))))
 (communicate "Please enter your grade:\n"))

Just Yoking,
Jos

----- Original Message ----- 
From: "abduls85" <abduls85 at gmail.com>
To: <plt-scheme at list.cs.brown.edu>
Sent: Friday, February 19, 2010 3:19 PM
Subject: [plt-scheme] Please help : How do i add contents from user to auser 
defined list


> Hi Guys,
>
> I am trying to add content into a user-defined list within a loop, but
> no matter what i try it is not working. Please help. Any help provided
> will be greatly appericiated
>
>
> (define Grades(list)); TotalAU is a list that stores all the AU
> according to module
>
> (display "Please enter the number of module taken in the semester: ")
>  (newline)
>  (let ((Modules(read)))
> (do ((i 0 (+ i 1)))
>      ((= i Modules) )
>      ; User will enter all his grades
>      ; Need to store into the list Grades
>      (display "Please enter your grade: ")
>      (newline)
>      (Grade(read))
>      ;Need help to proceed after this
>     )
> _________________________________________________
>  For list-related administrative tasks:
>  http://list.cs.brown.edu/mailman/listinfo/plt-scheme


--------------------------------------------------------------------------------



Se certificó que el correo entrante no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 9.0.733 / Base de datos de virus: 271.1.1/2695 - Fecha de la 
versión: 02/18/10 08:34:00