Changeset 29508 in project


Ignore:
Timestamp:
08/04/13 17:04:17 (6 years ago)
Author:
Christian Kellermann
Message:

parley: refactor out code duplication brought to our attention by Claude Marinier

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/parley/trunk/parley.scm

    r28914 r29508  
    488488  (let* ((parley-port (parley? in))
    489489         (real-in-port (first-usable-port in port-list))
    490          (useful-term (terminal-supported? real-in-port (get-environment-variable "TERM")))
    491          (old-attrs (and useful-term (enable-raw-mode real-in-port))))
    492     (let ((lines (if useful-term
     490         (old-attrs (and (useful-term? in)
     491                         (enable-raw-mode real-in-port))))
     492    (let ((lines (if (useful-term? in)
    493493                     (begin
    494494                       (history-init!)
Note: See TracChangeset for help on using the changeset viewer.