While петља — разлика између измена

Садржај обрисан Садржај додат
Ред 411:
<source lang="scheme">
#lang racket
(define-syntax-rule (while test body ...) ; implements aubacuje while looppetlju
(let loop () (when test body ... (loop))))
(define broj 5)