|
|
@ -840,7 +840,7 @@ In this project, we want to end up with HTML, so our source files will be called
|
|
|
|
<title>◊select['h1 doc] by T. S. Eliot</title>
|
|
|
|
<title>◊select['h1 doc] by T. S. Eliot</title>
|
|
|
|
<link rel="stylesheet" type="text/css" media="all" href="styles.css" />
|
|
|
|
<link rel="stylesheet" type="text/css" media="all" href="styles.css" />
|
|
|
|
</head>
|
|
|
|
</head>
|
|
|
|
<body>◊(->html doc #:splice #t)
|
|
|
|
<body>◊(->html doc #:splice? #t)
|
|
|
|
◊(define prev-page (previous here))
|
|
|
|
◊(define prev-page (previous here))
|
|
|
|
◊when/splice[prev-page]{
|
|
|
|
◊when/splice[prev-page]{
|
|
|
|
<div id="prev">← <a href="◊|prev-page|">◊(select 'h1 prev-page)</a></div>}
|
|
|
|
<div id="prev">← <a href="◊|prev-page|">◊(select 'h1 prev-page)</a></div>}
|
|
|
|