Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] shifting characters in rejoin

From: rchristiansen:pop:isdfa:sei-it at: 4-Oct-2000 17:44

I have created a function which returns something strange when I use rejoin. The function is called build-html.r which builds a markup statement. Here is the console result. Notice the closing bracket for the opening tag is strangely moved to the end of the rejoined string:
>> do %build-html.r
Script: "Untitled" (none) == <font class="author"Ryan C. Christiansen</font>>
Your input would be helpful. -Ryan Here is the script: REBOL [] author: make object! [ name: "Ryan C. Christiansen" email-address: [rchristiansen--sei-it--com] stylesheet-info: make object! [ tag-style: "font" class-name: "author" ] ] build-html: func [ "Build an HTML page element including the data to be displayed and the markup language surrounding the data." data [object!] "the data to be marked up" ][ open-tag: build-tag [(data/stylesheet-info/tag-style) class (data/stylesheet-info/class-name)] close-tag: rejoin [{</} data/stylesheet-info/tag-style {>}] markup-string: rejoin [open-tag data/name close-tag] markup-string ] build-html author