scheme - スキームで改行に一致する文字が見つからないようです

Question

ファイル内の改行文字を見つけて、これまでのところカウンターで追跡しようとしています

srcf はソースファイルです

(if(equal? (peek-char srcf) (#\newline) )

  (begin

    (read-char srcf)
    (Lines srcf (+ Line 1))
  )

  (begin

    (read-char srcf)
    (Lines srcf Line)                       
  )
)

しかし、私は私の等しいことを知っていますか？(peek)(#\newline) が機能しない 改行に使用できる文字はありますか?